mo$m f > 





< < 

. w a 
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***************************************************************** 

* * 

* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D MOD . B * 



001D = 



0016 



* CONTROLLER. HANDLES DISKETTES WITH SECTOR SIZES OF 128 * 

* BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE * 
*_DENSITY. THERE ARE CONDITIO NAL ASSEMBLIES FOR THE _*_ 

* DISKUS HARD DISK CONTROLLER. * 

* * 



JH NOTE; THE SYSTEM DISKETTE (DR IVE A: ) HA S TO HAVE 1024 * 

* BYTE SECTORS IN ORDER FOR THE COLD AND WARM BOOT * 

* LOADERS TO WORK. BE SURE TO FORMAT ALL NEW * 

* SYSTEM DISKETTES WITH 1024 BYTE SECTORS. THE * 



* 
* 

* 



SYSTEM DISKETTE CAN BE EITHER SINGLE OR DOUBLE 
SIDED. THE SECTOR SIZE ON NORMAL (NON A: DRIVE) 
DISKETTES CAN BE 128, 256, OR 1024 BYTES IN 



* 
* 



EITHER SINGLE OR DOUBLE DENSITY. 



* 

*: 
* 



* SOFTWARE ENGINEERING, MORROW DESIGNS 11/81 

* """" ' : * 

***************************************************************** 
TITLE '*"*** "Cbios For CP/M Ver. 2.2 ***~~ 



REVNUM EQU 



29 



? CBIOS REVISION NUMBER 2.9 



CPMREV EQU 



22 



;CP/M REVISION NUMBER 2.2 



***************************************************************** 



***************************************************************** 

* * 

* DEFINE" THE CONSOLE DRIVER" TO "BE USED ♦ "~ " ~~ ""*" 

*. ;".;;*; 

* CONTYP IS: NOT HING^ USED FOR PATCHING TO PROM'S. * 
*" 1 PROVIDE FOR 128 BYTES OF PATCH SPACE. * 

* 2 MULTI I/O OR DECISION I DRIVER. * 





* THE FOLLOWING EQUATES DEFINE THE CONSOLE AND PRINTER * 

* ENVIRONMENTS. * 


. 1 


' 


***************************************************************** 





< 

3 



M 





* 3 2D/B DRIVER. * 


: **************************************^^ - :: - : ':, : -:" 


Wk902 = 


CONTYP EQU 2 



***************************************************************** 



* DEFINE THE PRINTER DRIVER TO BE USED. 
* 



* LSTTYP IS: 



* 
* 

-*- 
* 

* 



1 
2 



~3 
4 

5 



1 



NOTHING, USED FOR" PATCHING TO PROM'S." 
PROVIDE FOR 128 BYTES OF PATCH SPACE. 
MULTI I/O SERIAL, NO PROTOCOL . 
MULTI I/0~SERIAL, CTS PROTOCOL. 
MULTI I/O SERIAL, DSR PROTOCOL. 
MULTI I/O SERIA L, XON / X OFF PROTOCOL . 
MULTI I/O PARALLEL, CENTRONICS. 
MULTI I/O PARALLEL, DIABLO HYTYPE II. 



* 
* 



* 

* 

* 
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* * 

* NOTE: THE DECISION BOARD IS FUNCTIONALLY IDENTICAL TO THE * 

* MULTI I/O BOAR D FOR PR IN TER I/O. SELECTI ONS 2 -6 * 



* WILL WORK ON THE DECISION I. * 

* * 

* * * * * * ******** * * ************************************* * * ********** 



0003 = 



LSTTYP EQU 



0000 = 



0001 = 



***************************************************************** 

* * 

* THE NEXT EQUATE DETERMINES IF YOU HAVE A MULTI I/O REV 3 * 

* OR A DECISION I MOTHER BOARD FOR PARALLEL I/O. IF ARE" NOT * 

* USING EITHER OF THESE BOARDS THEN YOU NEED NOT WORRY ABOUT * 

* THIS EQUATE. IF YOU ARE USING A MULTI I/O REV. OTHER THAN _^_ 
v " 3.X THEN YOU SHOULD SET MULTR3 TO 0. * 

* ■ ..■ ' ' * 
***************************************************************** 



MULTR3 EQU 



;0 = DECISION, 1 = MULTI I/O 



IF CONTYP EQ 2 
CONGRP EQU 1 
ENDIF 



;COSOLE PORT (1 = PI, 2 = P2, 3 = P3) 



0003 



IF 
LSTGRP EQU 



ENDIF 



LSTTYP GE 2 
3 



; PRINTER PORT (1 = PI, 2 = P2, 3 = P3 ) 



***************************************************************** 

"w *~ 

* 
* 

* " * 

***************************************************************** 



* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. 



< 



to 



0001 "=" 



0001 = 
0004 = 



0000 = 

0001 = 
0000"=" 
0000 =» 



FIRST 



EQU 



MAXHD EQU 
MAXFLOP EQU 



M26 

M20 



~KT0F" 
M10M 



EQU 
EQU 

t:qit 

EQU 



1 
4 




1 



;0 = FLOPPIES ARE A,B,C,D DRIVES AND 

HARD DISK ARE E,F,G,H 
;1 - HARD DISKS ARE A,B, C.D DRIVES AND 

.,; " ;:: feop^te's~sre e,f,g,h; 

•SET TO NUMBER OF HARD DISKS 
jSET^ T0|_ NUMBER OF FLOPPIE S 

;SET ONLY ONE OF THESE VARIABLES 



IF 




0-000-sr 



M10 



EQU 



M10F OR M10M 



***************************************************************** 

* THE NEXT EQUATE WILL SET THE NUMBER OF LOGICAL DISKS ON A * 

* PHYSICAL HARD DISK DRIVE. THE USER MUST SET STDLOG TO A * 

* VAULE GREATER THAN OR EQUALE TO 2 FOR" IWHierW. 3 1POR AN *"~ 

* M20 OR M26. THE REASON FOR THIS IS THAT CP/M CAN NOT * 
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* ADDRESS MORE THAN 8 MEGABYTES PER LOGICAL DISK AND * 

* SPLITTING A DISK TO LESS THEN 2 OR 3 PARTS WOULD MAKE * 

* PARTITIONS THAT ARE GREATER THAN 8 MEGABYTES IN LENGTH. * 



* * 

****** ******************************************* **************** 



0000 = 



0003 = 



001 = 

¥0T3~~= 
0015 .»" 



STDLOG EQU 
IF 







STDLOG NE 



;SET TO TO USE STANDARD LOGICAL DISKS 



LOGDSK EQU STDLOG 

ELSE 
LOGDSK EQU 3*M26+3*M20+2*M10 



;SET TO NUMBER OF USER SELECTED 

; LOGICAL DISKS 

f DEFAULT LOGICAL DISKS PER DRIVE 



ENDIF 
FUJITSU EQU M20 OR M10F 



MREV EQU 
HDSPT EQU 



26*M26+20*M20+10*M10 ;HARD DISK TYPE 
32*M26+21*M20+21*M10 ; SECTORS PER TRACK 



***************************************************************** 
* * 



"* THE FOLLOWING" EQU ATES~RF;LATE^HE""M0RR0W DES IGNSf 2D ~ 

* CONTROLLER. IF THE CONTROLLER IS NON STANDARD (0F800H) 

* ONLY THE ORIGIN EQUATE NEED BE CHANGED. 



* 



***************************************************************** 



F800 
FC00 



~FEBW 
F803 
F806 
YBW 
F80C 
F80F 



F815 
F818 
F8IB 
F821 

J?827 
F82A" 
F82D 
F830 

"0W8" 
FBF8 
FBF9 
FBFC" 
00D0 



MAXFLOP NE 

0F800H 

ORIGIN+400H 



ORIGIN 

ORIGIN+3H 

ORIGIN+6H 

ORIGIN+9H" 

ORIGIN+0CH 

ORIGIN+0FH 



IF 

ORIGIN EQU 

DJRA M _ EQU 

DJBOOT EQU 

DJCIN EQU 

DJCOUT EQU 

DJHOME EQU 

DJTRK EQU 

DJSEC EQU 

DJDMA EQU 

D J READ EQU 

DJWRITE EQU 

DJSEL EQU 7" 

DJTSTAT EQU 

D J STAT EQU 

DJERR" EQU " ORIGIN+2AH 

DJDEN EQU ORIGIN+2DH 

DJSIDE EQU OR IGIN +30H 

"CBESTD EQU "g 

10 EQU ORIGIN+3F8H 
DREG EQU 10 + 1_ 
CMDREG"" EQU "TO-RT 
CLRCMD EQU 0D0H 
ENDIF 



ORIGIN+012H 

0RIGIN+15H 

0RIGIN+18H 

ORiGIM+iBH 

ORIGIN+21H 
ORIGIN+27H 



; INCLUDE DISCUS 2D ? 



DISK JOCKEY 2D RAM ADDRESS 



DISK JOCKEY 2D INITIALIZATION 

DISK JOCKEY 2D CHARACTER INPUT ROUTINE 

DIS K JOCKEY 2D CHARACTER OUTPUT ROUTINE 

DISK JOCKEY 2D TRACK" ZERO SEEK 

DISK JOCKEY 2D TRACK SEEK ROUTINE 

DISK JOCKEY 2D SET SECTOR ROUTINE 



DISK JOCKEY 2D SET DMA ADDRESS 

DISK JOCKEY 2D READ ROUTINE 

DISKjJOCKEY 2D WRITE ROUTINE 

DISK JOCKEY 2D SELECT DRIVE ROUTINE 

DISK JOCKEY 2D TERMINAL STATUS ROUTINE 

DISK JOCKEY 2D STATUS ROUTINE 



DISK JOCKEY 2D ERROR, FLASH LED 
DISK JOCKEY 2D SET DENSITY ROUTINE 
DISK JOCKEY 2D SET SIDEROUTINE 
SIDE BIT FROM "CONTROLLER 
START OF I/O REGISTERS 



< 

73 



fO 



_J 



***************************************************************** 
* * 

* THE FOLLOWING BLOCK WILL DEFINE "CERAIN 2DB "ENT RY~POINTS "IN *~ 

* CASE THE USER IS NOT ACTUALLY USING THE 2DB'S DISKS BUT IS * 



CP/M MACRO ASSEM 2.0 #004 *** Cbios For CP/M Ver . 2.2 *** 



* USING THE 2DB*S CONSOLE DRIVER PROM. 



* 
* 



it**************************************************************** 



IF (MAXFLOP EQ 0) AND (CONTYP EQ 3) 
ORIGIN EQU 0F800H _____ 



DJCIN EQU 
DJCOUT EQU 
DJTSTAT EQU 



ORIGIN+3H 
ORIGIN+6H 
ORIGIN+21H 



;DISK JOCKEY 2D CHARACTER INPUT ROUTINE 
;DISK JOCKEY 2D CHARACTER OUTPUT ROUTINE 
;DISK JOCKEY 2D TERMINAL STATUS ROUTINE 



END IF 
************************************************** 



* 
* 
* 
~* ****** * *************** ******** * * ****************************** ** r " 



* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. 
* 



j 


IF 


MAXHD NE 


►WANT HARD DISK INCLUDED ? 


' 


0050 = 
0050 = 
0050 = 


HDORG EQU 
HDSTAT EQU 
HDCNTL EQU 


50H 

HDORG 

HDORG 


•HARD DISK CONTROLLER ORIGIN 
•HARD DISK STATUS 
•HARD DISK CONTROL 




! 0053 = 

! - 0052 = 

0051 = 


HDDATA EQU 
HDFUNC EQU 
HDCMND EQU 


HDORG+3 ; 
HDORG+2 j 
HDORG+1 ; 


•HARD DISK DATA 
•HASib DISK FUNCTION 
•HARD DISK COMMAND 




0051 = 
0002 = 
0001 = 


HDRESLT EQU 
RETRY EQU 
TKZERO EQU 


HDORG+1 

2 

1 


•HARD DISK RESULT 
RETRY BIT OF RESULT 
•TRACK ZERO BIT OF STATUS 




0W2" -"" 
1 0004 = 
0008 - 


OPDONE EQU 
COMPLT EQU 
TMOUT EQU 


2 

4 
8 


•OPERACTION DONE BIT OF STATUS 
•COMPLETE BIT OF STATUS 
•TIME OUT BIT OF STATUS 


" 


0010 = 
0020 = 
0040 = 


WFAULT EQU 
DRVRDY EQU 
INDEX EQU 


10H 
20H 
40H 


•WRITE FAULT BIT OF STATUS 
DRIVE READY BIT OF STATUS 
•INDEX BIT OF STATUS 




00FB = 
0004 = 


PSTEP EQU 
NSTEP EQU 
HDRLEN EQU 


4 ; 

0FBH 

4 


STEP BIT OF FUNCTION 
STEP BIT MASK OF FUNCTION 
•SECTOR HEADER LENGTH 




0200 = 
000F - 
000B = 


SECLEN EQU 
WENABL EQU 
WRESET EQU 


512 ; 

0FH 

0BH ; 


SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 




0F05 = 
0007 = 
00F7 = 


SCENBL EQU 
DSKCLK EQU 
MDIR EQU 


3 1 

7 

0F7H ; 


CONTROLLER CONTROL 
DISK CLOCK FOR CONTROL 
DIRECTION MASK FOR FUNCTION 


■ ■ . -. . j 
i 


00FC = 
0000 = 

0008 = 


"HULL" EQU 
IDBUFF EQU 
ISBUFF EQU 


"0FCH ; 
; 
8 ) 


NULL COMMAND 
INITIALIZE DATA COMMAND 
INITIALIZE HEADER COMMAND 




0001 = 
0005 - 


RSECT EQU 
WSECT EQU 


l ; 
5 


READ SECTOR COMMAND 
WRITE SECTOR COMMAND 


! 



END IF 



***************************************************************** 

* * 

*~~ THE" FOLOWING "EQUATES~wrLL TyEFINE^^H^DECISION"' I " MOTHER " * 

* BOARD I/O OR THE MULTI I/O ENVIRONMENTS IF NEEDED. * 

* * 

************************************** ****** ***-***** J *TS ******"***** 



CP/M MACRO ASSEM 2.0 
FFFF = MULT 10 



0048 
004F 
0048 
0049 
0049 
004A 
004B 
004D 
004E 



MBASE 

GRPSEL 

DLL 

DLM " 

IER 

CLK 



#005 
EQU 

II? 

EQU 
EQU 
EQU 



*** Cbios For CP/M Ver. 2.2 *** 

(CONTYP EQ 2) OR (LSTTYP GE 2) ;MULTI I/O BOARD USED? 



LCR 
LSR 
MSR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



MULTIO 

48H 

MBASE+7 

MBASE 

MBASE+1 
MBASE+1 
MBASE+2 
MBASE+3 
MBASE+5 
MBASE+6 



; DEFIN E MULTI I/O ENVIRO NMENT 

7 BASE ADDRESS OF MULTI I/O OR DECISION I 
7 GROUP SELECT PORT 

; DIVISOR (LS B) 

; DIVISOR (MSB) 

;INTERUPT ENABLE REGISTER 

7 WB14 PRINTER SELECT PORT 

;LINE CONTROL REGISTER 
;LINE STATUS REGISTER 



0048 = 


RBR 


EQU 


MBASE 


;READ DATA BUFFER 




0048 = 


THR 


EQU 


MBASE 


;TRANMITTER DATA BUFFER 




0080 = 


DLAB 


EQU 


80H 


r DIVISOR LATCH ACCESS BIT 




0020 = 


THRE 


EQU 


20H 


; STATUS LINE THRE BIT 




■ 0010 = 


CTS 


EQU 


10H 


7 CLEAR TO SEND 




, 0020 = 


DSR 


EQU 


20H 


7 DATA SET READY 




0001 = 


DR 


EQU 


1 


;LINE STATUS DR BIT 




0001 = 


WLS0 


EQU 


1 


;WORD LENGTH SELECT BIT 




0002 = 


WLS1 


EQU 


2 


;WORD LENGTH SELECT BIT 1 FOR 8 BIT WORD 




0W4~~~= 


STB 


EQU 


4 


;STOP BIT COUNT - 2 STOP BITS 





DEFINE MULTI I/O PORTS ADDRESSES FOR GROUP ZERO 



0000 = 

0048 = 

0049 = 



0048 
0049 



GZERO 
DAISY0 



EQU 
_EQU 
DAISY1 EQU 
SENSESW EQU 



IF 
DAISI0 EQU 
DAI SI 1 EQU 




MBASE 



ELSE 
DAIS 10 EQU 
DAISI1 EQU 

ENDIF 



MBASE+1 
MBASE+1 



MULTR3 EQ 

MBASE 

MBASE+1 



MBASE+1 
MBASE 



7 DAISY INPUT PORTS 
;SENSE SWITCHES 



DAISY OUTPUT PORTS ARE DIFFERENT 
FOR DECISION I AND MULTI I/O. 
THESE TWO ARE THE DECISION I PORTS 



< 

7} 






< 

to 



> 



AND THESE ARE THE MULTI I/O* S. 



DEFINE DAISY STATUS INPUT BITS 



0001 

0002 

0004 

0008 

0010 

0020" 

0040 

0080 



RIBBON 
PAPER 


EQU 
EQU 


01H 
02H 


COVER 
PFRDY 
CRRDY 


EQU 
EQU 
EQU 


0"4H 
08H 
10H 


PWRDY~~ 

CHECK 

READY 


EQU 
EQU 
EQU 


20H 
40H 
80H 



;END OF RIBBON 
; PAPER OUT 



; COVER OPEN 

; PAPER FEED READY 

7 CAR RIAGE READY 

? PRINT WHEEL READY 

7 PRINTER CHECK (ERROR) 

7 PRINTER READY 



DEFINE DAISY STATUS INPUT BITS FOR DIABLO HYTYPE II DRIVER 



"1020 
0810 
2040 



"CKSTRD" 
PFSTRD 
PWSTRD 



"EQU 
EQU 
EQU 



I020fT 

810H 

2040H 



7 CARRIAGE READY 
? PAPER FEED READY 
7 PRINT WHEEL READY 



7 DEFINE DAISY OUTPUT BITS 
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0001 
0002 
0004 
0008 



0010 
0020 
0040 



0080 = 



D9 

D10 



Dll 
D12 



PFSTB 
CRSTB 
PWSTB 



EQU 
EOJJ_ 



01H 
02H 



EQU 
EQU 

EQU 
EQU 
EQU 



04H 

08H 



10H 
20H 
40H 



RESTORE EQU 



80H 



;DATA BIT 9 
? DATA BIT 10 



;DATA BIT 11 
;DATA BIT 12 



; PAPER FEED STROBE 

; CARRIAGE STROBE 

; PRINT WHEEL STROBE 



.; PRINTER' RESTORE (RIBBON LIFT ON MULTI I/O) 



DEFINE CLOCK SELECT BITS 



0040 
0080 



RLIFT EQU 
PSELECT EQU 



40H 
80H 



; RIBBON LIFT 

; SELECT (NOT USED BY DIABLO) 



DEFINE GROUP SELECT BITS 



0001 = 


S0 


0002 = 


SI 


0003 = 


SMASK 



0004 

0008 

_0010 

0020 



BANK 
EN INT 
RESTOR 
DENABLE EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



01H 
02H 
J33H 
04H 
08H 
10 H 
20H 



; GROUP NUMBER (0-3) 



; PRINTER RESTORE ON MULTI I/O 
; DRIVER ENABLE ON MULTI I/O 



; DEFINE SPECIAL CONSTANTS FOR THE HYTYP II DRIVER 



000A 

0006 

W7B~ 

0030 

00A0 



0400 
0630 
006E 

0000 



CPERI 
JjPERI 
HINC """ 
VINC 



EQU 
EQU 



AUTOLF EQU 



10 
6 



; DEFAULT TO 10 CHARACTERS PER INCH 
; DEFAULT LINES PER INCH 



EQU 120 
EQU 48 
NUMTABS EQU 160 



; HORIZONTAL INCREMENTS PER INCH 
; VERTICAL INCREMENTS PER INCH 
; NUMBER OF HORIZONTAL TABS 



< 






MAXCHRS EQU 1024 
MAXRGT EQU 1584 
DFRMLN EQU 110 



;MAXIMUM NUMBER OF PRINTER CHARACTERS TO QUEUE 
; MAXIMUM CARRIAGE PQSlTiON 
I FORMS LENGTH TIMES 10 







; DEFAULT TO NO AUTO LINE FEED. 



ENDIF 



******************* 

* 



********************************************** 

:* 



* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M" SYSTEM 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING 

* EQUATES. 

-* ■ -"— — — — : : : — — — — — — : ■ ■ : 



~0W3E~ 
A800 
CD00 
D500" 
E300 
3E00 
0004"" 
0080 



MSIZE EQU 
BIAS EQU 

CCP EQU 

~BDOS EQU 
BIOS EQU 
OFFSETC EQU 



CDISK 
BUFF 



EQU 
EQU 



62 ~ ~ ; MEMORY SIZE ; OF TARGET CP/M 

(MSIZE-20)*1024 ; MEMORY OFFSET FROM 20K SYSTEM 
2500H+BIAS ; CONSOLE COMMAND PROCESSOR 



CCP+800H 

CCP+1600H 

2100H-BIOS 



jBDOS ADDRESS 

jCBIOS ADDRESS 

? OFFSET FOR SYSGEN 



4 
80H 



? ADDRESS OF LAST LOGGED DISK 
.•DEFAULT BUFFER ADDRESS 
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0100 - 
0000 = 
0003 = 



0000 - 
0005 ■ 



000A = 
001A = 



0000 - 
0003 ■» 

0006 = 

0007 = 

0008 = 



"0009 - 
000A = 
000B = 
000C = 
000D = 
0011 = 

"0013 ■'»■ 
001B = 
01E = 
00 IF =" 
0020 = 
007F = 



TPA EQU 
INTIOBY EQU 
IOBYTE EQU 



100H 



3 



; TRANSIENT MEMORY 
; INITIAL IOBYTE 
? IOBYTE LOC AT IQN__ 



WBOT 
ENTRY 



EQU 
EQU 





5 



; WARM BOOT JUMP ADDRESS 
JBDOS ENTRY JUMP ADDRESS 



***************************************************************** 



* THE FOLLOWI NG ARE INTERNAL C BIOS EQUATES. MO ST ARE MISC. 

* CONSTANTS. 

* . 



* 
* 

* 



***************************************************************** 



RETRIES EQU 
CLEAR EQU 



ANUL 
AETX 



EQU 

EQU 



AACK 
ABEL 
ABS 



EQU 
EQU 
EQU 



EQU 
ACR,/ EQU 
ff _EQU_ 
EQU 
EQU 
EQU 




XQFF 

AESC 

A RS 

AUS 

ASP 

ADEL 



EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



10 
'Z*-64 




'C-64 



'F*-64 
'G'-64 
'H'-64 



•I* -64 
•J'-64 
^'-64 



'L'-64 
'M'-64 
*Q'-64 
_r S r -"64" 
1BH 



1EH 



1FH 
■ i 

7FH 



;MAX RETRIES ON DISK I/O BEFORE ERROR 
; CLE AR SCREEN ON AN ADM 3 . 



? NULL 

rETX CHARACTER 

;ACK CHARACTER 

; BELL 

;BACK SPACE 



* HORIZONTAL TAB 
; CARRIAGE RETURN 
; VERTICAL TAB 



;FORM FEED 
?LINE FEED 
;XON CHARACTER 



,«XQFF CHARACTER 
? ESCAPE CHARACTER 
?RS CHARACTER 



;US CHARACTER 

; SPACE 

; DELETE 



< 






***************************************************************** 
* * 



* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE 

* THE SAME. 

■*" ~~ " " ' '". " " 

***************************************************************** 



* 
* 
* 
* 



E310T3 

E300 C3F8EA 
~ET03"C3~FEET" 



ORG 

JMP 

"WSOOTE JMP 



BIOS 



CBOOT 



; CBIOS STARTING ADDRESS 
;COLD BOOT ENTRY POINT 



WBOOT 



;WARM BOOT ENTRY POINT 



T£306~C36~6~E3" 
E309 C33BE3 
E30C C354E3 



-*P- 



CONST" 

CIN 

COUT 



JMP 
JMP 
JMP 



r JMP - 

CIN - TfMP 

cout — ^mrr~ 



COHTYr Mc-tr 



CSTTY 

CIFLSH 

COTTY 



; CONSOLE STATUS ROUTINE 
; CONSOLE INPUT 
; CONSOLE OUTPUT 






; CONSOLE STATUS ROUTINE PROM POINTER 
; CONSOLE INPUT PROM POINT ER 
; CONSOLE OUTPUT PROM POINTER" 



' •■TlJU&iW-^*-' 
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E30F C375E3 



E312 
E315 
E318 
E31B 
E31E 
E321 
E324 
E327 



C3A2E3 
C3A5E3 
C349E4 
C38BE4 
C34BE4 



C33DE4 
C343E4 
C3CAE5 



E32A 



JMP LIST_ 

^fiT.Sffi— — -» 
- JMP - — -GOUT - -a 
- SJJDIF •_ 



JMP 
JMP 



PUNCH 
READER 



JMP 
JMP 
JMP 



HOME 

SETDRV 

SETTRK 



JMP 
JMP 
JMP 



SETSEC 
SETDMA 
READ 



JMP 



WRITE 



i LI ST DEVICE OUTPUT 



;LIST DEVICE OUTPUT 



; PUNCH DEVICE OUTPUT 
; READER DEVICE INPUT 



;HOME DRIVE 
; SELECT DISK 
;SET TRACK 



;SET SECTOR 
;SET DMA ADDRESS 
;READ THE DISK 



; WRITE THE DISK 



E32D C381ET 



JMP 
-Sfe6«- 



tfMP**"" 



■ B MOIP - 



m'l'TVP M 



LISTST 



;LIST DEVICE STATUS 
;LIST DEVICE STATUS 



E330 C350E4 



JMP 



SECTRAN 



; SECTOR TRANSLATION 



E333 C31BF8 



DJDRV 



JMP 



MiwrT i nr m a 

DJSEL 



; HOOKUP FOR SINGLE.COM PROGRAM 



E336 0C00 



IW1F 



-Dounp 



*************************************************************** 




; CONSOLE BAUD RATE 



N 



< 

Hi 
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E338 0C00 



DEFLST DW 



12 



; PRINTER BAUD RATE 



tie*************************************************************** 

* 

* THE tUSCt BYTE IS TO MAKE SURE THAT THE GROUP SELECT BYTE *- 



* ON THE MUTMi^l/O OR DECSION I STAYS CONSISTANT THROUGHOUT y** 

* THE CBIOS. ONLY THE GROUP BITS THEMSELVES (BITS AND 1) y^ * 

* SHOULD BE CHANGEtK&S YOU OUTPUT TO THE GROUP PORT. IF y *_ 

* 

* 

* 



* YOU MODIFY ONE OF TBE^OTHER BITS (SUCH A DRIVER-ENABLE^ 

* THEN YOU SHOULD MODIFY N NJE SAME BIT IN THE GROUP BYTE 

* PROVIDED. EXAMPLE: 



* 
* 

* 

* 

* 

* 

* 

~*~ 

■*:■■ 



LDA 



GROUP 



ORI 
OUT 



CONGRP 
GRPSEL 



CONSOLE GROUP 

OUP BYjaT 

CONSOLE PORT 
GROUP- 




* 
* 
* 



■■*■. 
* 



LDA 
ORI 



GROUP 
BANK 



STA 
ORI 
OUT 



GROUP 
GROUP, 
GRJENSEL 




1< 



M0tflFY A BIT "IN THE GROUP BYTE * 
GET GROUP BYTE \ * 

SET THE BANK BIT \ * 



SAVE NEW GROUP SETTsENG 
SELECT SECOND SERIALSPORT 
SELECT THE DESIRED GROUP 



* 

*■ 



* NOTE: YOU ^SHOULD NOT SET THE GROUP BITS THEMSELVES IN 

* JTHE* GROUP BYTE . 



***** ****** ** ******************* * * *********** * * ***** * ** * * * * ****** 




E33A~~00~ ~ ' SROUP DB 0" ; GROUP BYTE 

***************************************************************** 



* CONSOLE DRIVER ROUTINES. 

* 



* 

* 

* 



* ROUTINE USED DEPENDS ON THE VALUE OF CONTYP. POSSIBLE 

* CONTYP VALUES ARE LISTED AS FOLLOWS: 
* 

NOTHING, "USED "FOR~PAJCTiING ~TO~ PR0M T S7 

1 PROVIDE FOR 128 BYTES OF PATCH SPACE. 



~*~CONTYP IS: 
* 



* 

T" 



2 

3 



MULTI I/O OR DECISION I DRIVER. 
2D/B DRIVER. 



* 

* 
* 

* 
* 

~*~ 



* * 

***************************************************************** 



E33B CD3DE6 
E33E C341E3 



CIFLSH CALL 
JMP 



FLUSH 
CITTY 



; FLUSH DISK BUFFERS ON INPUT 



***************************************************************** 
* * 



y CONTYP: 1 

* 



BLANK SPACE FOR CONSOLE DRIVER 
* NOTE: IF THE USER PLANS TO UTILIZE THIS SPACE THEN THE 



* 

* 



~ x ONE TIME" CODE SUCH AS TINIT SOULD BE PLACED JUST BELOW 
* THE CBOOT ROUTINE. THIS SPACE (BELOWE CBOOT) IS RECYLED 



* 



< 
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* FOR USE AS A DISK BUFFER AFTER CBOOT IS DONE. 
* 



* 



***************************************************************** 



IF 

TINIT EQU 
COTTY EQU 
CITTY EQU 



CSTTY EQU 
RET 
DS 



CONTYP EQ 1 



$ 

$ 



;MAKE IT EASY TO FIND THIS PLACE 



$ 
127 



ENDIF 



; BLANK SPACE 



**************** ************************************** * ** * ******* 

* ' ■ ■: * 

* CONTYP: 2 MULTI I/O OR DEC! S ION I CONSOLE DRIVER ___ * 



***************************************************************** 



IF 



CONTYP EQ 2 



***************************************************************** 

~* ' " *~ 

* THIS DRIVER ON COLD BOOT WILL INSPECT BITS 1-3 OF THE SENSE * 

* SWITCHES. IF THE VALUE FOUND IS IN THE RANGE 0-6 THEN THE * 



* CONSOLE BAUD RATE WILL BE TAKEN FROM THE RATE TABLE. * 

* OTHERWISE THE CURRENT DIVISOR LATCH VALUE WILL BE CHECKED. * 

* IF THE DIVISOR SEEMS TO BE OK THEN NO ACTION WILL BE TAKEN * 



* AS FAR AS THE"" BAUD RATE" SETTING GOES. IF THE DIVISOR IS NOT * 

* OK THEN THE BAUD RATE WILL BE SET FROM THE DEFCON WORD * 

* WHICH IS FOUND JUST BELOW THE REGULAR CBIOS JUMP TABLE. THE * 

"*■ STANDARD DIVISOR TABLE IS GIVEN BELOW. 
* 

* SENSE SWITCH: 123 (0 = OFF, 1 = ON) 



* 

* 



000 = 110 

001 = 300 
010 - 1200 



* 

* 

* 
* 



~0TT 

100 » 4800 

101 = 9600 



~*~ 
* 
* 



- ri0 = 192 s 

* DEFCON - 9600 * 

* * 

*~KOTE: IF YOU ARE COMPILING WITH MULTR3 fA MULTI I/O) THEN" "~* 

THE SWITCHES WILL NOT BE AVAILABLE SO THE BAUD RATE * 

WILL BE TAKEN FROM DEFCON. * 



* 
* 

-* ' " '"" " "'"'" "" "' 5T 

***************************************************************** 



< 



M 



* ■-*«-* *-**-*-*-*-*-*"* "* *** * **ir«"*ifir*"*Tr*"* *ir* «inr*ir*"*"* *"*****"*"*"*"* * * * * *Ti~*~*~w*~* *"* *~ 
* * 

♦DUE TO ITS LENGTH, THE TINIT ROUTINE DRIVER IS BELOWE THE * 

*~CBOOT ROl 

* 
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********************************************************** 



***************************************************************** 



* READ A CHARACTER FROM THE SERIAL PORT. 

*.-,-.■■ 



* 
* 

* 



***************************************************************** 



E341 3A3AE3 



E344 F601 
E346 D34F 



CITTY LDA 



GROUP 



ORI 
OUT 



CONGRP 
GRPSEL 



;GET GROUP BYTE 



j SELECT CONSOLE 



E348 DB4D CONIN1 IN 
E34A E601 ANI 

E34C CA48E3 JZ 

E34F DB48 



E351 E67F 
E353 C9 



LSR 

DR 

CONIN1 



j READ STATUS REGISTER 
;WAIT TILL CHARACTER READY 



IN 

ANI 

RET 



RBR 
7FH 



;READ CHARACTER 
; STRIP PARITY 



***************************************************************** 
* * 



* OUTPUT A CHARACTER TO SERIAL PORT. * 

*. / * 

***************************************************************** 



E354 3A3AE3 
E357 F601 
"E359" D34F 

E35B DB4D 
E35TJ~E^20~" 
E35F CA5BE3 
E362 79 
"E3"&XT>J4B" 
E365 C9 



COTTY LDA 
ORI 



OUT 

CONOUTl IN 

ANI" 

JZ 

MOV 

OUT 

RET 



GROUP 

CO NGRP 

GRPSEL 

LSR 



;GET GROUP BYTE 
; SELECT CONSOLE 



THRE 
CONOUTl 
A,C 
THR 



;READ STATUS 

;WAIT TILL "TRANSMITTER BUFFER EMPTY 

^CHARACTER IS IN (C) 

? OUTPUT TO" TRANSMITTER "BUFFER 



< 






********"** * * * **************************************************** 

* * 

* RETURN SERIAL PORT STATUS. RETURNS ZERO IF CHARACTER IS NOT * 



"* READY TO BE "READ. ELSE RETURNS 255 IF READY. * 

* .' ■ ' * 

***************************************************************** 



E366 3A3AE3 
E369 F601 
E36JB D34F 



CSTTY LDA 
ORI 



GROUP 

CONGRP 

GRPSEL 



;GET GROUP BYTE 
; SELECT CONSOLE 



E36D DB4D 
"E36F"E6-01" 
E371 C8 
E37 2 3EFF 



IN 



^RNI" 
RZ 
MVI 



RET 
END IF 



LSR 
UK""" 

A, 0FFH 



;READ STATUS REGISTER 



;NO CHARACTTER READY 
; CHARACTER READY 



;MULTI 1/6 OR DECISION I 



***************************************************************** 
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* CONTYP: 3 



2DB CONSOLE DRIVER 



* 
* 
* 



***************************************************************** 



IF 



CONTYP EQ 3 



COTTY JMP 



DJCOUT 



; CONSOLE OUTPUT 



CITTY JMP 
CSTTY CALL 



DJCIN 
DJTSTAT 



; CONSOLE INPUT 
; CONSOLE STATUS 



MVI 


A,0FFH 


RZ 




INR 


A 



__^44^ 



***************************************************************** 
* * 

■■■'*■ 
* 



* LST: DEVICE DRIVER ROUTINES. 
* 

* ROUTINE USED DEPENDS ON THE VALUE OF LSTTYP . POSSIBLE 



""* LSTTYP VALUES ARE LISTED AS FOLLOWS: * 

* * 

* LSTT YP IS^ N OTHI NG, USED F OR PATCHI NG TO PR OM'S. * 
-*— — - y~ - PROVIDE FOR 128 BYTES "OF PATCH SPACE. ■"""."*' 

* 2 MULT I I/O SERIAL, NO PROTOCOL. * 

3 MULTI I/O SERIAL, CTS PROTOCOL. _____ * 



4 
5 
6 



* 

* 
* 

"IF : 

* 
***************************************************************** 



MULTI I/O SERIAL, DSR PROTOCOL. " * 
MULTI I/O SERIAL, XON / XOFF PROTOCOL. * 
MULTI I/O PARAL LEL, CENTRONICS. Jl 
MULTI IJO" PARALLEL , DIABLO HYTYPE" II . ■"""' * 

* 



***************************************************************** 



r _ r 



_~-FOR"PRTNTER DRIVER 



* 

* 

* NOTE: IF THE USER PLANS TO UTILIZE TH IS SPACE THEN THE 

* ONE TIME CODE SUCH AS LINIT SOULD BE~ PLACED "JUST BELOW 

* THE CBOOT ROUTINE. THIS SPACE ( BELOWE CBOOT) IS RECYLED 

* FOR USE AS A DISK BUFFER AFTE R CBO OT IS DONE ._ 



* 
*- 

* 
* 

* 
* 

-*~ 
***************************************************************** 




< 

71 






TF" 



LSTTYP EQ 1 



LINIT EQU $ 

XISTJ EQU T 

LISTBT EQU $ 
RET 



;MAKE IT EASY TO FIND THIS PLACE 
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ENDIF ; BLANK SPACE 

************************************************************ 



* LSTTYP: 2 

* .. 



* LSTTYP: "3 

* 



SERIAL PRINTER, NO PROTOCOL 



SERIAL PRINTER, CTS PROTOCOL 



* 
* 
* 



* 
* 





* LSTTYP: 4 SERIAL PRINTER, DSR PROTOCOL * 




I ■ 
j 


* * 

* LSTTYP: 5 SERIAL PRINTER, XON / XOFF PROTOCOL * 




***************************************************************** 







y 


IF 


E375 3A3AE3 
E378 F603 


LIST 


LDA 

ORI 


E37A D34F 
E37C DB4D 


LL 


OUT 
IN 



"E37E E62$ 
E380 CA7CE3 



"E3BTT5B4E 
E385 E610 
E387 CA7CE3 



(LSTTYP GE 2) AND (LSTTYP LE 5) 



GROUP 
LSTGRP 



;GET GROUP BYTE 

; SELECT LIST DEVICE 



GRPSEL 



LSR 



ANI 
JZ 



THRE 
LL 



;WAIT TILL TRANSMITTER BUFFER EMPTY 



***************************************************************** 

* * 

* THE CTS DRIV ER I S US ED FOR A PRINTER WITH HARDWARE *_ 
"^"HANDSHAKING TTI 810 JT~ IT SHOULD BE CONNECTED TO THE CTS " * 

* INPUT ON THE LIST DEVICE SERIAL PORT. * 

* * 



* * * ** *~* *********** *************** ******************************** 



LSTTYP EQ 3 




;CTS PROTOCOL 



;WAIT TILL CLEAR TO SEND 



ENDIF 
***************************************************************** 



-*~ ~" * ; " ' " ~~~ '■ " " ~ ■ .. it 

* THE DSR DRIVER IS USED FOR A PRINTER WITH HARDWARE * 

* HANDSHAKING (TI 810). IT SHOULD BE CONNECTED TO THE DSR * 



* INPUT ON THE LIST DEVICE SERIAL PORT. " * 

* * 

***************************************************************** 




LSTTYP EQ 4 
MSR 



;DSR PROTOCOL 



DSR 
LL 



;WAIL TILL DSR COMES UP 



***************************************************************** 

* * 

"*"THE""XON/XOFF~DRlVER IS USED FOrTA PRINTER~W1TH SOFTWARE"" ~~* 

* HANDSHAKING (DIABLO 630). * 



< 
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< 

Lr 



> 
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* * 

***************************************************************** 





/IF 
XLOOP / CALL 
/ ORA 


LSTTYP EQ 

LISTST 

A 


5 


;XON / XOFF PROTOCOL 
; CHECK PRINTER STATUS 






JZ 
V ENDIF 


XLOOP 




;LOOP IF NOT READY 




E38A 79 
E38B D348 
E38D C9 


MOV 
OUT 
RET 


A,C 
THR 


- 






E38E 3A3AE3 
E391 F603 


LISTST LDA 
ORI 


GROUP 
LSTGRP 




;GET GROUP BYTE 

; SELECT LIST DEVICE 




E393 D34F 
E395 DB4D 


OUT 
IN 


GRPSEL 
LSR 




jCHECK IF TRANSMITTER BUFFER EMPTY 




E397 E648 
E399 C8 


AMI 
RZ 


THR 




; RETURN NOT READY 




E39A DB4E 
E39C E610 


1 IN 
/ ANI 


LSTTYP EQ 

MSR 

CTS 


3 


;CTS PROTOCOL 




E39E C8 


\ RZ 

V ENDIF 






; RETURN NOT READY IF CTS IS FALSE 






/IF 

/ IN 
ANI 


LSTTYP EQ 

MSR 

DSR 


4 


; DSR PROTOCOL 

' • . . . ■ . . .■■■"■■■'■ ■ '■' 






V RZ 

Nendif 






; RETURN NOT READY IF DSR IS TRUE 


< 

K 




/IF 
• MVI 
LSTFLG \ EQU 


LSTTYP EQ 

B,XON 

$-1 


5 


;XON / XOFF PROTOCOL 

;LAST CHARACTER RECIEVED FROM PRINTER 

-A 






IN 

/ ANI 
■ JZ 


LSR 

DR 

XSKIP 




7 CHECK FOR A CHARACTER 
;NO CHARACTER PRESENT 






" [ ~TST 

ANI 

[ MOV 


RBR 
7FH 
B,A 




?GET CHARACTER 

' ''' : :■ : ; ■■■:'■ ;': ■'■■■■■■i J 
; SAVE 






1 STA 

XSKIP \ MOV 

| SUI 


LSTFLG 

A,B 

XOFF 




; KLUDGE FLAG (LAST CHARACTER RECIEVED) 
; CHECK FOR XOFF CHAR (CONTROL S) 






I JMZ 
| RET 


XSDONE 




7 PRINTER READY ' 
7 PRINTER NOT READY 






XSDONE (EQU 

VENDIF 


"T 




? PRINTER READY FOR DATA 




E39F 3EFF 
E3A1 C9 


MVI 

RET 


A,0FFH 




? PRINTER READY ' 






"VENDIF 






; MULT I I/O SERIAL 
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***************************************************************** 

* * 

* 
*~ 



* LSTTYP: 6 



CENTRONICS PARALLEL PRINTER D RIVE R. 



***************************************************************** 



IF 



LSTTYP EQ 6 



***************************************************************** 



* DECISION I DIABLO PARALLEL TO CENTRONICS PARALLEL INTERFACE. 
* 



* 
* 
* 



* THE FOLLOWING CABLE MUST BE MADE FROM THE 50 PIN DIABLO 

* CONECTOR TO THE 35 PIN CENTRONICS. 
* 



* CENTRONICS 

* PIN SIGNAL 

* 1 /STROBE 



* 2 

* 3 

* 4 



"*~~5" 

* 6 

* 7 



T-g— 

* 9 

* 10 

* IT" 

* 12 

* 13 

* 14 

* 15 

* 16 

-w-rr 

* 18 

* 19 

"213" 



* 21 

* 22 

"*- 23" 

* 24 

* 25 
"* 26 

* 27 

* 28 



* 
* 

* 
* 

-*r 



^9~ 

30 

31 

32" 

33 

34 

J5~ 



DATA1 
DATA2 
DATA3 
DATA4 
DAT AS' 
DATA6 



DATA7 
DATA8 
/ACKNLG 



BUSY 

PE 

SLCT 



7AUT0 FEED XT 

NC 

0V 

"CHASSIS GND 

NC 

/STROBE RTN 



T5ATA1 RTN 
DATA2 RTN 
DATA3 RTN 
DATA4 RTN 
DATA5 RTN 
DATA6 RTN _ 
DATA/ RTN 
DATA8 RTN 
/ACKNLG RTN 
BUSY RTN 
PE RTN 
/INIT 

IRROR 
GND 
NC 
~/EL"CTTN~ 



* 
* 



<- 



<- 

<- 

<- 

_ <~ 

<- 
<- 



<- 
<- 

-> 



-> 
-> 



<- 



<-> 



<-> 



<-> 
<-> 
<-> 






<-> 
<-> 
<-> 



<-> 
<-> 



<- 



MULTI I/O 

PIN SIGNAL 

46 /D9 

~ 7dT~ 



37 
36 
39 



33 



42 



43 
45 
12 



28 

3 

4 



8 

"IT 
14 
16 

T8~ 
20 
22 



25 
38 
41 

47 
9 



5 
35 



* 
* 
* 

~*~ 
* 
* 



/D2 

/D3 

TD4 
/D5 
/D6 

7dT 

/D8 

/CHECK 

TpRINTER READY 

/PAPER 

/RIBBON 

7Dl0 

GND 



* 
* 

* 
* 

* 
* 



* 
* 
* 

* 
* 



* 
* 
* 



< 
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< 

CO 

: 3J 
m 
> 

a 



GND 



* 
* 

* 



GND 
GND 
GND 
"GUD" 
GND 
GND 



* 
* 

~*~ 
■ ; * : 

* - 



GND 
GND 
GND 



GND 

GND 

/ Oil 

/COVER 

GND 



* 
* 
* 

'* 
* 



* 

* 



T0r _ ^^ 

35 <-> 24 /SELECT 



"*~TMFORTANT : FOR THIS INTERFACE TO WORK /SELECT (24) ON THE 
* PARALLEL CONECTOR MUST BE TIED TO GROUND (35). 



* 

* 

IT 
* 
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***************************************************************** 



LIST 



LDA 
OUT 



GROUP 
GRPSEL 



j GET GROUP BYTE 



RL 



IN 


DAISY0 


ANI 


READY+PAPER 


JZ 


RL 



;WAIT TILL PRINTER READY AND SELECTED 



PL 



IN 

ANI 

JNZ 



DAISY0 
RIBBON 
PL 



;TEST IF OUT OF PAPER 



EL 



IN 

ANI 

JNZ 



DAISY0 

COVER 

EL 



MOV A, C 

OUT DAISI1 

MVI A,Dil+DI0+D9 



7 MOVE CHARACTER INTO (A) 

? LATCH DATA 

;MAKE SURE STROBE IS HIGH 



OUT 
DCR 
OUT 



DAISI0 

A 

DAISI0 



; PULSE STROBE LOW 



INR 
OUT 



A 
DAISI0 



ACK IN 
ANI 

JZ 

"RET 

LISTST LDA 



DAISY0 

READY 

ACK 



;WAIT TILL READY AGAIN 



GROUP 



?GET GROUP BYTE 



OUT 



IN 



GRPSEL 



DAISY0 





ANI 


READY+PAPER 




RZ 






IN 


DAISY0 




ANI 


RIBBON 




RZ 






IN 


DAISY0 




ANI 


COVER 




XRI 


COVER 




RZ 






DCR 


A 




RET 





; SELECT GROUP ZERO 

; WAIT TILL_ PRINTER READY AND SEL ECTED 

•TEST IF OUT OF PAPER 



< 

3 






esdif 

IF LSTTYP EQ 7 



; CENTRONICS PARALLEL 
; DIABLO HYTYP II 



********************************************************** 

* DIABLO 1610 SIMULATO R FOR THE MORROW DESIGNS / THINKER TOYS _j^ 
T MULT I/O BOARD. THE" SIMULATOR MAKES THE PARALLEL HYTYP II ~*~~ 

* LOOK LIKE A SERIAL 1610. * 
***************************************************************** 



***************************************************************** 
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* THIS ROUTINE DOES ALL OF THE CHARACTER DECODING, ESCAPE 

* SEQUENCES FORWARD, BACKWA RD. ETC. THE LIST OF ESCAPE 



* 
* 



SEQUENCES, AND SPECIAL CHARACTERS RECOGNIZED IS: 



* 
* 



ADEL 



IGNORED 



* 
* 
* 

*" 
* 

* 



ANUL 
AACK 
ABEL 



IGNORED 

IGNORED (WHEN RECEIVED) 

IGNORED 



* 

* 
* 



AFF 

AETX 

AHT 



FORM FEED 
ETX/ACK HANDSHAKE 
HORIZONTAL TAB 



* 



* 



ALF 
ASP 
ABS 



LINE FEED 

SPACE 

BACKSPACE 



* 

* 
* 



* 
* 
*~ 

* 
~*~ 

* 



ACR 


CARRIAGE RETURN 


■;■*■ ■:;- 


AESC 


IGNORED 


"■;-,*; ::■:--■■ 


AESC 1 


SET TAB STOP AT CURRENT PRINT POSITION 


* 



AESC 2 
AESC 3 
AESC 4 



AESC 5 
AESC 6 
AESC 8 



CLEAR ALL TAB STOPS 
GRAPHICS MODE ON 
GRAPHICS MODE O FF 
FORWARD PRINT 
BACKWARD PRINT 
CLEAR TAB STOP 



* 
* 
* 

* 
* 



~*~ 
* 
* 



~*~~ 

* 

* 



AESC 9 
AESC A 
AESCJB_ 
"AESC D 
AESC U 
AESC ALF 



SET LEFT MARGIN 

IGNORED 

IGNORED 



NEGATIVE HALF LINE FEED 
HALF LINE FEED 
NEGATIVE LINE FEED 



* 
* 
* 

* 
* 



* 

* 



AESC AHT C 
AESC AVT C 
AESC ARS C 



ABSOLUTE HORIZONTAL TAB 
ABSOLUTE VERTICAL TAB 
SET VMI 
SET HMI 



* AESC AUS C 

* 

***************************************************************** 



< 

33 



?3 



< 

c/i 



! 33 

m 



LIST 



LDA 
ORI 
~STK 
MOV 
ANI 



GROUP 

DENABLE 

GROUP 

A,C 

7FH 



;SET PRINTER INITIALIZED FLAG 



;GET THE CHARACTER TO PRINT 
; STRIP OFF PARITY 



RZ 

CPI 

RZ 

MOV 

LDA 

LXI 

ANA 

MOV 

Jz _ 
"LDA 

LXI 

CPI 

TKJV" 

JZ 



ADEL 



C,A 

ESCFLG 

H_^LEVEL0 

A 

A,C 
^OOKUP 

ESCFLG 

H ( LEVEL! 

AESC__ 

"STC 

LOOKUP 



; IGNORE DELETE 
7SAVE "GliARASCTER™" - ~~ 
; LEVEL ZERO CHARACTERS 



;SCAN FOR CHAR IN A 

; LOOK UP ACTIVITY FOR THIS CHARACTER 

; SINGLE CHARACTER ESCAPE SEQUENCES 





i 



;SCAN FOR CHAR IN A 

; EXECUTE SINGLE LEVEL ESCAPE SEQUENCE 




cp/m macro ASSEM 2.0 
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LXI 
LDA 
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H,LEVEL2 ;TWO CHARACTER ESCAPE SEQUENCE 
ESCFLG 



*************************************************************** 

* LOOKUP SCANS THE TABLE POINTED AT BY HL LOOKING FOR A MATCH * 

* OF THE CHARACTER IN REGISTER A. * 



***************************************************************** 



LOOKUP DCR 



M 



;TEST IF END OF TABLE 



INR 

JZ 

CMP 



M 

GOTHER 

M 



; EXECUTE THE DEFAULT FUNCTION 
.•OTHERWISE TEST FOR A MATCH 



JZ 

INX 

INX 



GOTHER 

H 

H 



;BUMP OVER CHARACTER 

;BUMP OVER FUNCTION ADDRESS 



INX 

JMP 

GOTHER INX 



H 

LOOKUP 

H 



; BUMP OVE R CHARACTER 



MOV 


A f M 


INX 


H 


MOV 


H,M 



;GET LOW BYTE OF FUNCTION ADDRESS 



;GET HIGH BYTE OF FUNCTION ADDRESS 



MOV 
PCHL 



L,A 



j FORM ADDRESS OF FUNCTION 
; EXECUTE IT 



***************************************************************** 

* EACH OF THE FOLLOWING TABLES CONTAINS ENTRIES OF THE FORM: * 

* * BYTE CHARACTER TO _MATCH _ * 

* 2 BYTES OF ADDRESS TO EXECUTE " " ""*" 

* TERMINATED BY A FIRST BYTE OF . * 
***************************************************************** 



LEVEL0 DB 


AESC 


DW 


DOAESC 


DB 


AFF 


DW 


DOAFF 


DB 


AETX 


DW 


DOAETX 


DB 


AHT 


DW 


DOAHT 


DB 


ALF 


DW 


DOALF 


DB 


ASP 


DW 


DOASP 


DB 


ABS 


DW 


DOABS 


DB 


~ACR~ 


DW 


DOACR 


DB 





DW 


DOCHAR 


LEVEL1 DB 


'1' 


DW 


SETHTAB 


DB 


'2* 


DW 


CLRALL 


DB 


'3' 


DW 


SETGRP 



XM91NNING OF AN _ESCAPE SEQUENCE 
;FORM FEED 



'JL° R JL Z J^ N TAL JTAB 
;LINE FEED 
TSPACE"" 
;BACK_ SPACE 
; CARRIAGE RETURN 



;ANY OTHER CHARACTER 



;SET HORIZONTAL TAB 

; CLEAR ALL HORI ZONTAL TABS 

; GRAPHICS MODE 



< 






I 3 
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■ 



DB 


•4' 


DW 


CLRGRP 


DB 


'5' 



DW 
DB 
DW 



CLRDIR 

■6* 

SETDIR 



DB 

DW 
DB 



'8' 

CLRHTAB 

'9' 



DW 
DB 
DW 



SETLMAR 

'0' 

FUNGI 



DB 
DW 
DB 
DW 
DB 
DW 



•A' 

FUNC1 

'B' 



; CLEAR GRAPHICS MODE 
; FORWARD PRINTING ~ 
: BACKWARD PRIN TING 
; CLEAR HORIZONTAL TAB 

7set""left 'MARGIN" 

; NO OPERATION LEVEL 1 



FUNC1 

•a' 

FUNC1 



DB 
DW 
DB 



'b' 

FUNC1 
'D' 



DW 
DB 
DW 



NEGHLF 

•U 4 

POSHLF 



; NEGATIVE HALF LINE FEED 
;HALF LINE FEED 



DB 
DW 
DB 



DW 
DB 
DW 



ALF 
NEGLF 

AHT 

SETTWO 

AVT 

SETTWO 



; NEGATIVE LINE FEED 



; TWO CHARACTER ESCAPE SEQUENCE 



DB 
DW 
DB 



ARS 

SETTWO 

AUS 



DW 
DB 
DW 



SETTWO 



FUNC1 



< 

70 






LEVEL 2 



DB 

DW 



T5B~ 
DW 
DB 



AHT 
ABSHTAB 



DW 
DB 
DW 



T5B~ 
DW 



AVT 

ABSVTAB 

ARS 



SETVMI 

AUS 

SETHMI 

FUNC2 



; ABSOLUTE HORIZONTAL TAB 



.•ABSOLUTE VERTICAL TAB 



* * **"**** * * w* * ****** ********************************************** 

* THE FOLLOWING ROUTINES EXECUTE ESCAPE SEQUENCES, ETC. * 
***************************************************************** 



SETTWO 
D OAESC MO V 
STA 



A,C 



;GET THE ESCAPE CHARACTER 



ESCFLG 



FUNC0 



RET 



cp/m macro ASSEM 2.0 



#020 



r ** Cbios For CP/M Ver. 2.2 *** 



DOAETX 


RET 




DOALF 
ADJVP 


CALL 
XCHG 
LHLD 


LFVMI 
DLVPOS 




DAD 

SHLD 

RET 


D 
DLVPOS 



;GET LINE FEED VMI 

;G ET VERTICAL MOTION DISPLACEMENT 



LFVMI 



LDA 

ANA 



GRHFLG 
A 



LXI 


H,l 


RNZ 




LHLD 


VMI 



;ONLY 1/48 IF IN GRAPHICS MODE 
;GET VERTICAL MOTION INDEX 



NEGLF 



RET 



CALL 



LFVMI 



yGET LINE FEED VMI 



CALL 
CALL 
JMP 



NEGHL 
ADJVP 
FUNC1 



DOASP 
SPDIR 



AD J HP 



CALL 

LDh 

ANA 

CNZ 

XCHG 



SPHMI 
DIRFLG 
A 
NEGHL 



;GET SPACE HORIZONTAL MOTION 
1 FORWARD OR BACKWARDS ? 



; NEGATE HL 

; ADJUST HORIZONTAL POSITION 



LHLD 

DAD 

SHLD 



DLHPOS 

D 

DLHPOS 



; GET CURRENT ADJUSTMENT 
; UPDATE IT 
;AND SAVE 



SPHMI 



RET 



LDA 



GRHFLG 



;IN GRAPHICS MODE ? 



< 

70 






ANA 
LXI 
RNZ 



A 
H,2 



; ONLY 1/60 IF IN GRAPHICS MODE 



LHLD 
RET 



HMI 



DOABS 



DOACR 



CALL 
CALL 
JMP 

XRA 

STA 



SPHMI 
NEGHL 
SPDIR 



; SPACE INCREMENT 
.•NEGATIVE TO START WITH 
; ADJUST BACKWARDS 



A 
DIRFLG 



STA 

LHLD 

XCHG 



GRHFLG 
HPOS 



; FORWARD PRINTIN G 
jNQ GRAPHICS MODE 
;GET CURRENT OFFSET 



LHLD 


LMAR 


CALL 


HLMDE 


SHLD 


DLHPOS 


MVI 


A, AUTOLF 


ANA 


A 


JNZ 


DOALF 


RET 





?GET LEFT MARGIN 

; DON'T MOVE YET THOUGH 

; IN AUTO LINE FEED MODE '.■"?. 

; DO LINE FEED ALSO 
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MOV 

MVI 

CALL^ 

LDA 

ANA 

LXI 



JNZ 

LHLD 

JMP 



CLRALL 



EQU 
LXI 



MVI 
NOTBLP MVI 
KLUDGE EQU 



INX 
DCR 
JNZ 



FUNC2 
FUNC1 



EQU 
XRA 
STA 



RET 



SETGRP MVI 



STA 
JMP 



CLRGRP 



XRA 
STA 
JMP 



CLRDIR 



XRA 

STA 
JMP 
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L,C 
H,0 
WHEEL 



; PRINT THE CHARACTER IN REGIS TER C 



GRHFLG 
A 

SPDIR 

HMI 

SPDIR 



; DON'T MOVE IF IN GRAPHICS MODE 



H.TABSTP 



; CLEAR ALL HORIZONTAL TABS 
; BEGINNING OF TAB STOP ARRAY 



D,TABLEN 
M,80H 

$-1 

H 

D 

NO TBLP 

_ 

A 
ESCFLG 



;SIZE OF TAB ARRAY (BYTES) 

; RESET TABS (RESET TO LATER) 

;USED ON FIRST RESET (WARMBOOT) 

rNEXT TAB STOP 

; UPDATE REPEAT COUNT 

; CONTINUE ZEROING 



; CLEAR ESCAPE SEQUENCE FLAG 



A/A. 



; SET GRAPHICS MODE ON 



GRHFLG 
FUNC1 



A 

GRHFLG 

FUNC1 



; TURN GRAPHICS MODE OFF 



A 

DIRFLG 

FUNC1 



; FORWARD PRINT MODE 



< 

33 



N 



< 

\ i 
m 
> 



SETDIR MVI 



STA 
JMP 



A, A 



;SET BACKWARD PRINTING MODE 



DIRFLG 
FUNC1 



SETLMAR LHLD 
XCHG 
LHLD 



DCX 

SHLD 

JMP 



HPOS 



DLHPOS 



;GET CURRENT POSITION 
•GET OFFSET 



DAD D 

SHLD LMAR 

JMP_ JP^NCJ: 

SETVMI MOV L,C 
MVI H,0 



H 

VMI 

FUNC2 



; SET THE MOTION INDEX 



i 

1 


SETHMI 


MOV 
MVI 


L i G 

H,0 








DCX 
SHLD 


H 
HMI 
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JMP 



POSHLF CALL 



CALL 
JMP 



**■* Cbios For CP/M Ver . 2.2 *** 

FUNC2 

HLFV MI rHALF LINE FEED VMI 



ADJVP 
FUNC1 



NEGHLF CALL 
CALL 

CALL 

JMP 

HLFVMI LHLD 



DIVID2 MOV 
ORA 

RAR 



HLFVMI 

NEGHL 

ADJVP 



FUNC1 
VMI 



A,H 
A 



; NEGATIVE HALF LINE FEED 



;GET VMI FOR FULL LINE FEED 



?HIGH BYTE 

; CLEAR THE CARRY 



MOV 


H,A 


MOV 


A, L 


RAR 





MOV 
RET 



L,A 



ABSHTAB MOV E,C 
MVI D,0 
DCX D 



CALL 
JMP 



NEWDLH 
FUNC2 



; ABSOLUTE HORIZONTAL TAB 
;FORM 16 BIT TAB COLUMN 



NEWDLH LHLD 
CALL 
XCHG 



LHLD 
XCHG 
CALL 
SHLD 
RET 



HMI 
HLTDE 



HPOS 

HLMDE_ 
DLHPOS 



; MULTIPLY BY HMI 



;AND SUBTRACT CURRENT HORIZONTAL POSITION 



< 

t 



> 



ABSVTAB MOV 
MVI 
DCX 
LHLD 
CALL 
XCHG 



LHLD 

XCHG 

CALL 

SHED" 

JMP 



E,C 
D,0 
JD 
VMI 
HLTDE 



VPOS 



HLMDE 



; ABSOLUTE VERTICAL TAB 



; MULTIPLY BY VMI 



DLVPOS 
FUNC2 



;AND SUBTRACT THE CURRENT VERTICAL POSITION 



SETHTAB CALL 
ORA 
MOV 



JMP 



TABCOL 
M 

M^A _ 
FUNC1 



SET HORIZONTAL TAB 
OR IN TAB STOP 
AND SAVE 



TABCOL LHLD HPOS 
TCCHG 

LHLD DLHPOS 



; COMPUTE ADDRESS OF CURRENT CHARACTER COL 
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DAD 

XCHG 

LHLD 



*** Cbios For CP/M Ver. 2.2 *** 

D ;GET LOGICAL POSITION 

HMI ;AND DIVIDE BY H MI TO GET CHARACTE R C OLUMN 



XCHG 
CALL 



HLDDE 



MTABP 



MTAB0 



;MAKE A TAB POINTER 

;HL -> TAB COLUMN DESIRED (1-160) 

;HL <- ADDRESS OF TAB STOP 



; A <- BIT MASK FOR TAB STOP 

LXI D,8 ; NUMBER OF STOPS PER BYTE 

CALL HLDDE ;HL/DE -> HL. HL MOD DE -» DE 



MOV 
INR 
LXI 



RAR 
DCR 
JNZ 
RET 



C,E 

C 

D,TABSTP 

D 

A 



C 

MTAB0 



;SAVE 

;MAKE RANGE (1-8) 

;TAB ARRAY 




;BUMP BIT COUNTER 



CLRHTAB CALL 



TABCOL 



; CLEAR HORIZONTAL TAB 



CMA 
ANA 
MOV 



JMP 



M 

M,A 

FUNGI 



;MASK OUT TAB STOP 



DOAHT 



LHLD 



XCHG 
LHLD 
DAD 



XCHG 
LHLD 
XCHG 



TABLOP 




HPOS 



DLHPOS 
D 



HMI 



HLDDE 
D,NUMTABS 

_H__ 

HLCDE 
TOFAR 
H 



; COMPUTE ADDRESS OF CURRENT CHARACTER COL 



;GET LOGICAL POSITION 



;AND DIVIDE BY HMI TO GET CHARACTER COLUMN 



; ST ART WITH N EXT POSITION 

; COMPARE POSITION" WITH NUMBER OF TABS 

;PAST LAST TAB 

? SAVE COL POINTER 



< 

7} 



Fo 



< 

CO 

1 i 
m 
> 

a 



"TOFAR" 



CALL 

ANA 

POP 



XCHG 

JMP 

LHLD 

XCHG 

LXI 



"CALL" 
SHLD 
RET 



MTABP 
M 

H 

TSBEOP 

NEWDLH 
"HPOS 

H,MAXRGT 



; GENERATE TAB POINTER 
; CHECK OUT TAB STOP 
; RESTORE COL POINTER 



;LOOP IF STOP NOT SET 



; SET NEW COL POSITION AND RETURN 



;GO ALL THE WAY TO THE RIGHT 



HLMDE 
DLHPOS 



DOAFF 



LXI 



H,DFRMLN 



; MULTIPLY FORMS LENGTH BY 48 
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LXI 

CALL 

LXI 

CALL 

PUSH 

LHLD 

XCHG 

LHLD 

DAD_ 

POP 

PUSH 

CALL 



XCHG 

POP 

XCHG 



CALL 
XCHG 
LHLD 



DAD 

SHLD 

JMP 



D,48 
HLTDE 

D,10 

HLDDE 

H 

VPOS 

DLVPOS 

D_ 

D 

D 

HLDDE 



D 

HLMDE 

DLVPOS 



D 

DLVPOS 

PAPR 



;AND DIVIDE IT BY 10 

;SAVE THIS RESULT 

;GET LOGICAL VERTICAL POSITION 



? GET COPY OF FORMS LENGTH 
;HL MOD DE 



***************************************************************** 

* NEGHL FORMS THE TWOS COMPLEMENT OF HL . * 

*********** * * **************************************************** 



NEGHL 



MOV 
CMA 
MOV 
MOV 
CMA 
MOV 
I NX 
RET 



_A,H_ 

H,A 

A,L 

L,A 
H 



< 






************************************** * ** * ** * * * * * * * * * * * * ** * * * * * ** 

"*~ "HLMDE SUBTRACTS '"DEI^O^WTmSETWSUW^T. "" —IT 

***************************************************************** 



HLMDE 



XCHG 

CALL 

XCHG 

DAD 

RET 



NEGHL 



****-***-* *TT** ****** *Tf * * * * ** WIT**** * ■* * *-*-**"*•*-*'* !»¥»? "* * *"** WmtWW* *~1tW*~Wli " 

* HLCDE COMPARES HL WITH DE. ON RETURN THE Z FLAG IS SET IF * 

* THEY ARE EQUAL, THE CARRY FLAG IS SET IF HL IS LESS THAN DE. * 



************* * * *"* * * * *'*"*" * * * * ****** ****** * * * * ** * * * * * * * ************* 



HLCDE 



^lOV 
CMP 
RNZ 
MOV 

~CMP~ 
RET 



AJH 
D 

A,L 
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***************************************************************** 

* DIVIDE THE NUMBER IN HL BY THE NUMBER IN DE . RETURN THE *_ 

* QUOTIENT IN HL AND THE REMAINDER IN DE. * 
***************************************************************** 



HLDDE 



MOV 
CMA 
MOV 



A,D 

B,A 



; START BY NEGATING DE AND 

MOVING THE LEFT OPERAND TO BC 



MOV 
CMA 
MOV 



A,E 



DIV3 



INX 

MVI 

LXI 

DCR 

RM 

DAD 



B 
A, 16 

P#JL_ 
A 

H 



; REPEAT COUNT IN REG A 

; INITIAL REMAINDER IS ZERO 



XCHG 

PUSH 

DAD 

POP 

JNC 

INX 



.TEST IF DONE 

f ALL DONE ? 

; SHIFT RIGHT OPERAND TO T HE LEFT 



DIV1 



PUSH 

DAD 

J NC 

XCHG 

INX 

XTHL 



PSW 

H 

PSW 

DIV1 

H 

H 

B 

DIV2 



;SAVE CARRY 

; SHIFT LEFT OPERAND TO THE LEFT 



;DOES IT FIT ? 



H 



DIV2 



POP 

JMP 

POP 

XCHG 

JMP 



H 

DIV3 

H 



DIV3 



*> 

^ 



> 



~wnt irk ************** ***"*-* ***** * * * *"** * * * * * * * ** * ********************* 

* MULTIPLY THE CONTENTS OF HL BY THE CONTENTS OF DE . * 

***************************************************************** 



HLTDE 



MOV 
MOV 



C,L 
B,H 



MULT 



LXI 
MOV 
ORA 



R,~W 

A,B 

C 



"R2~ 
MOV 
ORA 



A,B 
A 



T?AR- 

MOV 

MOV 



B,A 
A,C 



~RSR ~ 
MOV 
CC 

XCHG 
DAD 



DADDE 



H 
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DADDE 



XCHG 




JMP 


MULT 


DAD 


D 



RET 
************************************************* 



* THE ROUTINES BELOW ACTUALLY INTERFACE TO THE PRINTER, 

* CAUSING PAPER FEED, CARRIAGE, AND PRINT WHEEL MOTION. 
***************************************************************** 



* 

* 



CARRG 



LHLD 
MOV 



DLHPOS 
A,H 



; CHECK FOR ANY ACCUMULATED MOTION 



ORA 
RZ 

LHLD 



HPOS 




XCHG 
LHLD 
DAD 



; CHECK FOR TOO MUCH MOTION 



DLHPOS 
D 




MOV 


A,H 


ANA 


A 


JP 


LFTOK 



LHLD 
CALL 
SHLD 



HPOS 

NEGHL 

DLHPOS 



LFTOK 



LHLD 


HPOS 


XCHG 




LHLD 


DLHPOS 


DAD 


D 


LXI 


D,MAXRGT 


CALL 


HLCDE 



JC 

LHLD 

XCHG 



RGTOK 
HPOS 



; OTHERWISE MOVE ONLY TO MAXRIGHT 



i_.. 



LXI 

CALL 

SHLD 



H,MAXRGT 

HLMDE 

DLHPOS 



< 



Fo 



< 

CO 



> 
a 



RGTOK 



LHLD 
XCHG 
LHLD 



DAD 

SHLD 

L HLD 

MOV 

ANA 

MVI 



HPOS 

DLHPOS 
D " 
HPOS 
DLHPOS 



; UPDATE THE HORIZONTAL POSITION 



; CHECK IF REQUIRED MOTION IS TO THE LEFT 



A,H 

A 

C,0 



POSH 



"JP 


POSH 


CALL 


NEGHL 


MVI 


C,D11 


XCHG 




LXI 


H,0 


SHLD 


DLHPOS 


XCHG 




MOV 


A,L 


ANI 


1 



; RESET THE HORIZONTAL INCREMENT 



JZ 
MOV 



NOHHLF 
A,C 



;NO HALF SPACES 
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ORI 
MOV 
NOHHLF CALL 



D12 
C,A 
DIVID2 



PAPR 



MOV 
ANI 
_ORA 
MOV 
LXI 
JMP 

LHLD 
MOV 



A,H 

D9+DI0 

C 

H,A 

D,CRSTRD 

CMND 



DLVPOS 
A>H 



rCHECK FOR ANY PAPER MOTION 



ORA 

RZ 

MOV 



;NO MOTION 



A,H 



ANA 
MVI 
JP 



A 

C,0 

POSV 




POSV 



CALL 

MVI 

MOV 



NEGHL 
C, Dll 
A,H 



ANI 
ORA 
MOV 



D9+D10 

C 

H,A 



PUSH 
LHLD 
XCHG 



H 
VPOS 



;SAVE PAPER MOTION 



LHLD 

DAD 

PUSH 



DLVPOS 
D 

H 



;GET LOGICAL POSITION 
;SAVE FOR NOW 



LXI 
LXI 
CALL 



H,DFRMLN 

D,48 

HLTDE 



;GET DEFAULT FORM LENGTH 
; MULT I PLY BY 48 



< 



fo 



CO 

> i 



LXI 

CALL 

POP 

XCHG 

CALL 

XCHG 



D,10 

HLDDE 

D 



; DIVIDE BY 10 



HLDDE 



; COMPUTE HL MOD DE 



SHLD 

LXI 

SHLD 



VPOS 

H,0 

DLVPOS 



;SAVE NEW VERTICAL POSITION 
; RESET VERTICAL MOTION 



POP 
LXI 
JMP 



H 

D , PFSTRD 

CMND 



; PAPER FEED STROBE 



WHEEL 



PUSH H 

CALL CARRG 

CALL PAPR 

POP H 

LXI D,PWSTRD 



; POSITION THE CARRIAGE FIRST 



CMND LDA GROUP 
OUT GRPSEL 



;GET GROUP BYTE 

; SELECT GROUP ZERO 



CMND0 



IN 



DAISY0 
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ANA 

JZ 

MOV 

CMA " 

MOV 

MOV 
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D 

CMND0 
A, L 

L,A 

A, H 



; NEGATE LOW DATA BITS 



ANI 
CMA 
IF 



D9+D10+D11+D12 ;MASK IN DATA BITS ONLY 

MULTR3 ;MASK OUT RIBBON LIFT BIT ON MULTI I/O 



ANI 
END IF 
MOV 



0FFH-RESTORE 



H.A 



MOV 
OUT 
MOV 



A, L 

DAISI1 

A,H 



; OUTPUT LOW BITS 



OUT 
XRA 
OUT 



DAISI0 

E 

DAISI0 



; OUTPUT HIGH BITS 

; SLAP STROBE BITS IN 



MOV 
OUT 
RET 



A,H 
DAISI0 



;AND DROP STROBES BACK DOWN 



***************************************************************** 
*.' NEW LIST DEVICE STATUS ROUTINE. RETURNS 0FFH IF THE PRINTER * 






* CAN EXCEPT ANOTHER CHARACTER, OTHERWISE IT RETURNS 0. * 

***************************************************************** 



LISTST 



LDA 
ANI 
RZ 



GROUP 
DENABLE 



; CHECK PRINTER INITIALIZED FLAG 
;0 - PRINTER NOT INITIALIZED 



LDA 
OUT 
LXI 



GROUP 

GRPSEL 

D.PWSTRD 



;GET GROUP BYTE 

; SELECT GROUP ZERO 



IN 

ANA 

XRA 



DAISY0 

D 

A 



RZ 

CMA 

RET 



***************************************************************** 

* DYNAMIC DATA LOCATIONS USED BY THE SIMULATOR. * 

**************** **-*-*-* ***** *if * ************************************ 



< 






< 



> 

a 





HMI 


DW 





■HORIZONTAL MOTION INDEX. SET BY LINIT 






VMI 


DW 





AND ESCAPE SEQUENCES. 

■VERTICAL MOTION INDEX. SET BY LINIT 

AND ESCAPE SEQUENCES . 






VPOS 

DLVPOS 

HPOS 


DW 
DW 
DW 




; 


■VERTICAL POSITION. SET BY PLATEN MOTION 
•DELTA VPOS. SET BY PLATEN MOTION 
HORIZONTAL POSITION. SET BY CARRIAGE MOTION 






DLHPOS 

LMAR 

DIRFLG 


DW 
DW 
DB 







•DELTA HPOS. SET BY CARRIAGE MOTION j 
•LEFT MARGIN j 
•DIRECTION FLAG ! 




T5RHFLTT" 
ESCFLG 


DB 
DB 




; 


•GRAPHICS MODE FLAG 

•ESCAPE SEQUENCE IN PROGRESS FLAG 








CP/M MACRO ASSEM 2.0 #029 *** Cbios For CP/M Ver. 2.2 *** 



B 


TABSTP DS NUMTABS/8+1 ;TAB STOPS BIT ARRAY 

rpintpH vnn HilMTaflt; /ft+1 • T.F.NTGTH OF TABS ARRAY 












ENDIF 






***************************************************************** 

* * 

* THE FOLLOWING ROUTINES ARE USED TO MAKE THE READER AND PUNCH...* .... _ _ , 






* DEVICES PEFORM I/O THROUGH THE CONSOLE. THE USER MAY PATCH * 

* HERE FOR THEIR PARTICULAR DEVICES. * 

* * 




E3A2 C30CE3 


***************************************************************** 

PUNCH JMP COUT ._._.... . - -. — _.. - - -■ 




£ ! E3A5 C309E3 


READER JMP CIN 






***************************************************************** 

* * 

* fifii^PM TQ THP FMTRY POTNT FROM COLD BOOTS. AND WARM BOOTS. IT * 












* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* * 




E3A8 218000 


***************************************************************** 
GOCPM LXI H BUFF ; SET UP INITIAL DMA ADDRESS 








' E3AB ~CD?3E4~ 
m E3AE 3EC3 

E3B0 320000 


CALL SETDMA 

MVI A, (JMP) ; INITIALIZE JUMP TO WARM BOOT 

STA WBOT . ■_ IS... __. _ - 


< 

N 


E3B3 320500 

£ E3B6 2103E3 

E3B9 220100 


STA ENTRY ; INITIALIZE JUMP TO BDOS 

LXI H,WBOOTE ; ADDRESS IN WARM BOOT JUMP 

SHLD WBOT+1 . ... . . 


"ElBC TT06T55 

A E3BF 220600 
E3C2 AF 


LXI H,BDOS+6 ; ADDRESS IN BDOS JUMP 

SHLD ENTRY+1 

XRA A ;A <- ■_■■■■■ | . __ _ _. _ . 




"ETC1 ^4AEE 

E3C6 323EE6 

E3C9 3A0400 


STA BUFSEC ;DISK JOCKEY BUFFER EMPTY 

STA BUFWRTN ;SET BUFFER NOT DIRTY FLAG 

LDA CDISK ;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 










~ "E"3CC 4F 

m ; E3CD 3AFAE3 
E3D0 B7 


MOV C,A 
LDA CWFLG 

ORA A ........ .. ..... 




E3D1 11FCE3 
M E3D4 3E01 

E3D6 CADEE3 


LXI D f COLDBEG ;BEGINNING OF INITIAL COMMAND 

MVI A, COLDEND-COLDBEG+1 ; LENGTH OF COMMAND 

JZ CLDCMND .. .... .. 


i 


E3D9 11FDE3 ~ 
E3DC 3E01 

E3DE 2108CD 


~ LXI D.WARMBEG 

MVI A, WARMEND-WARMBEG+1 
CLDCMND LXI H,CCP+8 y COMMAND BUFFER .. .. _ __ .." ....... 


1 
1 


E3Eir ^207 CD 

£ E3E4 47 

E3E5 CD06E7 


STA CCP+7 
MOV B,A 
CALL MOVLOP 








EUEB 3AFAEJ 
E3EB B7 

E3EC 3AFBE3 


LDA CWFLG 

ORA A 

LDA AUTOFLG 


j 
i 








E3EF CAF3E3 

E3F2 IF 


JZ CLDBOT 
RAR 






. - - ■ ■ - ■ ■■- •■ — -■ ■ — ' " " ' 


i 


! 













CP/M MACRO ASSEM 2.0 #030 *** Cbios For CP/M Ver. 2.2 *** 



E3F3 IF CLDBOT RAR 
E3F4 DA00CD JC 

E3F7 C303CD JMP 



E3FA 00 



CCP 
CCP+3 



; ENTER CP/M 



CWFLG DB 







; COLD/ WARM BOOT FLAG 



m 



E3FB 00 



* * * * * * *********************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* = NEVER GIVE" COMMAND . 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

_w_ 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS . 



* 
* 
* 



* 
***************************************************************** 



AUTOFLG DB 







;AUTO COMMAND FEATURE 



*******"* *~* ***** ************************************ ** * * ***** * ** * * 

* * 

* IF THERE IS A COMMAND INSERTED HERE, I T WILL BE GIVEN IF THE *_ 
~*~AUTO FEATURE IS ENABLED. "~* " 

* FOR EXAMPLE: ' * 

* * 

~*~" ~QOLDBEG~t)B. T MBASICT MYPROG 1 " ~ *~ 

* COLDEND DB * 

* * 



* WILL " EXECUTE "MICROSOFT BASIC, AND MBASIC" WILL EXECUTE THE *~ 

* "MYPROG" BASIC PROGRAM. * 

* * 

**~* * ******** ** ********* **** *"**"* * *"**"***"* **" *"**'*"* W*TT* * * * * * * * * *****"**" 



< 

33 



fr 

K 



-EJFU1SW' 
E3FD 00 



COLDBEG DB 
COLDEND DB 
WARMBEG DB 
WARMEND DB 



?COLD BOOT COMMAND GOES HERE 




• i 





;WARM BOOT COMMAND GOES HERE 



***************************************************************** 

* * 

~*~WBT30T LOADS IN ALL OF - CP/M EXCEPT~THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

-*- — " — " ; : — ■ • ~- ~ — 

********************************************************* * * ****** 



"^UFE 3100Fr 
E401 3E01 
E403 32FAE3 



E406 AF 
E407 4F 
E408 2100CB 



WBOOT 



LXI 

MVI 
STA 

IF 
XRA 
"MO\T 
LXI 



SP,TPA 

A,l 

CWFLG 



;SET UP STACK POINTER 
;SET COLD/WARM BOOT FLAG 



(MAXHD NE 0) AND FIRST ; SUPPLY WARM BOOT FROM HARD DISK ? 

A _____^^ 

C,A 

H,CCP-200H ; INITIAL DMA ADDRESS 



CP/M macro ASSEM 2.0 



#031 



*** Cbios For CP/M Ver. 2.2 *** 



E40B 


E5 


PUSH 


H 


E40C 


3249E8 


STA 


HEAD 


E40F 


3E01 


MVI 


A,l 


E41I 


F5 


PUSH 


PSW 


E412 


CD1BE7 


CALL 


HDDRV 


E415 


0E00 


MVI 


C,0 


E417 


CD3AE7 


CALL 


HDTRK 


E41A 


Fl 


WARMLOD POP 


PSW 


E41B 


El 


POP 


H 



E41C 
E41D 
E420 



3C 

322DE8 

FE0C 



E422 


CAA8E3 


E425 


24 


E426 


24 



E427 
E42A 
E42B 



TZttWT 

E5 

F5 



E42C 
E42F 
E430 



01000A 

C5 

CD8AE7 



E433 
E434 
E437 



E438 
E43B 
E43C 



CI 

D21AE4 

05 

C22FE4 

76 

00 



INR 
STA 
CPI 



JZ 

INR 

INR 



SHLD 
PUSH 
PUSH 



WARMRD LXI 
WRMREAD PUSH 
CALL 



POP 
JNC 
DCR 



JNZ 
HLT 

DB 

ENDIF 



A 

HDSECTR 

12 



GOCPM 

H 

H 



HDADD 

H 
PSW 



7 SAVE FIRST SECTOR - 1 
; SELECT DRIVE A 



;HOME THE DRIVE 
; RESTORE SECTOR 
? RESTORE DMA ADDRESS 



7 PAST BDOS ? 



;YES, ALL DONE 

; UPDATE DMA ADDRESS 



B, RETRIES* 

B 

HDREAD 



100H+0 ; RETRY COUNTER 

;SAVE THE RETRY COUNT 
;READ THE SECTOR 



B 
WARMLOD 

_?_ 

WRMREAD 





."; TEST FOR ERROR 

.•UPDATE THE ERROR COUNT _ _ 

;KEEP TRYING IF NOT TO MANY ERRORS 

; ERROR HALT 

;TRY NOT TO SCREW UP DECISION_CPU ' S. 



** ******************************************************* ******** 

"* : * 



* FLOPPY DISK WARM BOOT LOADER 
* 



**TT*ir* * **~**~**~H * ********* * * * * *** * * * ***** ****** ******** * * ******* * ** 



< 
70 



IF 



(MAXFLOP NE 0) AND NOT FIRST ; SUPPLY WARM BOOT FROM 2D ? 



MVI 
CALL 
WRM FAIL CALL 
JC 
MVI 
CALL 



MVI ~ 
STA 
LXI 
SHLD 



C,0 

DJSEL 

D J H OME 

WRMFAIL 

C/0 

DJSIDE 



NEWSEC 
H.CCP-100H 
~NEWD"MH" 



" T0BOOT - "MVT '""" ~A75^2" 
NEWSEC EQU $-1 

INR A 

imr ~h" 

CPI 27 



; SELECT DRIVE A 

; TRACK 0, SINGLE DENSITY 



;LOOP IF ERROR 
; SELECT SIDE 



;THE NEXT BLOCK OF CODE RE-INITIALIZES 
THE WARM BOOT LOADER FOR TRACK 0. 

~ ~| IKriTrAX > TZE"T , HE~ SECTQR'TD-READ ~=T"2 

;FIRST REVOLUTION DMA - 100H 



;LOAD ALL OF TRACK 



; FIRST SECTOR - 2 
7 UPDATE SECTOR # 



7 SIZE OF TRACK IN SECTORS + 1 



cp/m macro ASSEM 2.0 



#032 



*** Cbios For CP/M Ver . 2.2 *** 



NOWRAP 



JC 

JNZ 

SUI 

LXI 

SHLD 

STA 



MOV 

CALL 

LXI 



NEWDMA 



EQU 
LXI 
DAD 



NOWRP 



SHLD 

MOV 

MOV 



NOWRAP 
T1BOOT 
27-6 



H,CCP-80H 

NEWDMA 

NEWSEC 



C,A 
DJSEC 

H,CCP-100H 
"S-2 
D,100H 
D 



NEWDMA 

B,H 

C,L 



CALL 
LXI 
WRMFRED PUSH 



;SKIP IF NOT AT END OF TRACK 

;DONE WITH THIS TRACK 

;BACK UP TO SECTOR 6 



yMEMORY ADDRESS OF SECTOR - 100H 

; SAVE THE UP DATED SECTOR # ._ 

;SET UP THE SECTOR 

; MEMORY ADDRESS OF SECTOR - 100H 



rUPDATE DMA ADDRESS 



;SAVE THE UPDATED DMA ADDRESS 



CALL 
CALL 
POP 



DJDMA 
B,RETRIES*100H+0 

B ' " : 

DJTRK 
D J READ 
B 



;SET UP THE NEW DMA ADDRESS 
; MAXIMUM # OF ERRORS , TRACK # 



JNC 
DCR 

JNZ 
JMP 



T0BOOT 

B 

WRMFRED 



;SET UP THE PROPER TRACK 
;READ THE SECTOR 

r KEEP TRYING IF ERROR 



DJERR 



;TO MANY ERRORS, FLASH THE LIGHT 



;LOAD TRACK 1, SECTOR 1, SECTOR 3 (PARTIAL), SECTOR 2 (1024 BYTE SECTORS) 



T1BOOT MVI 
CALL 



LXI 

LXI 

CALL 

LXI 

LXI 

CALL 



LXI 
LXI 
"LXI" 



CI 

DJTRK 

B,CCP+0B00H" 

D, 10*100H+1 

WRMREAD 

B7CCP+0F00H 

D,10*100H+3 

WRMREAD 

B,0300H 
D,CCP+1300H 
TrrCCP+0FBffH" 



fTRACK 1 



; ADDRESS FOR SECTOR 1 
; RETRY COUNT + SECTOR 1 



? ADDRESS FOR SECTOR 2 
; RETRY COUNT + SECTOR 3 



;SIZE OF PARTIAL SECTOR 
rADDRESS_FOR SECTOR 3 
; ADDRESS OF SECTOR ~3 



< 






< 

CO 



> 

a 



WRMCPY 



MOV 
"STAXT 

INX 

INX 
TTCX" 

MOV 

ORA 



A,M 



JNZ 



D 
D 
H 

■rgr— - 

A,B 
C 



WRMCPY 



?GET A BYTE AND 



; SAVE IT. 
?BUMP POINTERS 

7BWP~COWfER "" 
; CHECK IF DONE 



IF NOT, LOOP 



LXI B,CCP+0F00H 
"TXT "DTT0^X0W+2" 
CALL WRMREAD 



; ADD RESS FOR SECTOR 2 
; RETRY COUNT + SECTOR~2~ 



JHP 



GOCPM" 



;ALL DONE, DO LAST INITS. 



CP/M MACRO ASSEM 2.0 #033 

WRMREAD PUSH 
CALL 
POP 



CALL 

WRMFRD PUSH 

CALL 



*** Cbios For CP/M Ver . 2.2 *** 

D 

DJDMA ;SET DMA ADDRESS 

B 

DJSEC 

B 

D J READ 



JC 

CALL 

ANI 



SUI 

WRMERR POP 

RNC 



WRMERR 
D J STAT 
0CH 
0CH 
B 



DCR 
JNZ 
JMP 



B 

WRMFRD 

DJERR 



SET SECTOR 

SAVE ERROR COUNT 

READ A SECTOR 



DO RETRY STUFF ON ERROR 
SECTOR SIZE MUST BE 1024 BYTES 

MASK LENGTH BIT_S_ _ 

CARRY (ERROR) WILL BE SET IF < 0C0H 
FETCH RETRY COUNT 
RETURN IF NO ERROR 



BUMP ERROR COUNT 
; E RROR, FLASH THE LI GHT 



ENDIF 



************** * * * * * * * *'* ****************************************** 



SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN 



* 

* 



* ACTUAL READ OR "WRITE IS ATTEMPTED. " * 

*' ■■:■ * 

***************************************************************** 



E43D 60 
E43E 69 
~E43F 224~2EE~ 
E442 C9 



SETSEC MOV H,B 
MOV L , C 



DONOP 



SHLD 
RET 



CPMSEC 



yNULL SINGLE.COM HOOKUP FOR NO FLOPPIES 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR_ THE L_DATA_ TRANSFER. * 

***************************************************************** 



"E443 60 

E444 69 

E445 221EE6 
"E448nC9~~ 



SETDMA MOV 
MOV 

SHLD_ 

RET 



H,B 
L,C 
CPMDMA 



;HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
-**-* ******* infWWWWTT* * * *\1tWWWW* * * * * *-*"*!* * * * wwwvwwwww* mrgwwje * * * *~* "* '*' **'*"*" 



< 

3J 






E449 0E00 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK S/WE5~TliE - 'TRAGK" 7 T~ , ro SEEK _ TO^ NOWlNG ~IS DONE AT"THIS *" 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
*************************** ****** * * *"**"*** ****** * *~* * * *~**~** *"*"*"*■ *~* * * 



CP/M MACRO ASSEM 2.0 #034 *** Cbios For CP/M Ver . 2.2 *** 



E44B 79 SETTRK MOV A, C 
E44C 3245EE STA CPMTRK 

E44F C9 RET 



;A <- TRACK # 
;CP/M TRACK # 



it**************************************************************** 

* * 



* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYS ICAL SECTOR * 

* #. * 

* * 

**"**** ******************* *~* ********** ***"** ********** **"****"* ******" 



E450" 3A44EE 



IF 



SECTRAN LDA 



(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 
CPMDRV ;GET THE DRIVE NUMBER 



E43T~FW3 
E455 DA87E4 



IF 

CPI 

JC 

ELSE 

CPI 

JNC 

ENDIF_ 

END IF 



FIRST 



MAXHD*LOGDSK 
TRANHD 



; OVER THE # OF HARD DISKS ? 



MAXFLOP 

TRANHD 



;OVER THE # OF FLOPPIES ? 



E458 
E459 
E45A 
E45_B 
E45E 
E45F 
E460 



03 

D5 

C5 

CDA2E5 

7E 

B7 

IF 



E46T 
E462 
E463 
E4&6 
E467 
E468 

E46A 

E46B 

HE46T:" 

E46E 



91 

F5 

FA6FE4 

FT~ ~ 

Cl 

Dl 

09 
6E 

~ZS00 
C9 



IF 

SECTRAN EQU 

ENDIF 



TRANFP 



IF 
INX 
"PUSH 
PUSH 
CALL 
MOV" 
ORA 
RAR 



JMAXHD_EQ 0) OR . JJ4AXFLOP EQ 0) ; JU 1ST ONE TYPE ? 



MAXFLOP NE 

J* 

D '"' 

B 
GETDPB 



SUB 

PUSH 

JM 

SIDEA""" POP 

POP 

POP 

"SIDEONE XCHG 
DAD 
MOV 



MVI 
RET 



A,M 
A 

___ 

PSW 

SI DETWO 

PSW 

B 

D 



B 

L,M 



E,W 



FLOPPY TRANSLATION 



SAVE TABLE ADDRESS 

SAVE SECTOR # 

GET DP B ADD RESS INTO HL 

GET # OF CP7M SECTORS/ TRACK 

CLEAR CARY 

DIVIDE BY TWO 



SAVE ADJUSTED SECTOR 



DISCARD ADJUSTED SECTOR 
RESTORE SECTOR REQUESTED 
RESTOR ADDRESS OF XLT TABLE 
HL <- &(TRANSLATION TABLE) 
BC = OFFSET INTO TABLE 
HL <- PHYSICAL SECTOR 






"E4~6F~i0riW00~ 

E472 09 

E473 7E 
~E474"E5"08 _ ~ 

E476 CA66E4 

E479 Fl 

Fpf7A~xn: 

E47B 2F 



SIDETWO LXI 
DAD 
MOV 



ANI 

JZ 

POP 

"PUP" 



B/15 
B 

A,_M_ 
"8" 

SIDE A 
PSW 



CMA 



B 



.•OFFSET TO SIDE BIT 



;TEST FOR DOUBLE SIDED 
,-MEDIA IS ONLY SINGLE SIDED 
j RETRIEVE ADJUSTED SECTOR 



;MAKE SECTOR REQUEST POSITIVE 



CP/M macro ASSEM 2.0 



E47C 3C 


INR 


A 


E47D 4F 


MOV 


C,A 


E47E Dl 


POP 


D 



#035 *** Cbios For CP/M Ver. 2.2 *** 

; MAKE NEW SECTOR THE REQUESTED SECTOR 



E47F CD69E4 
E482 3E80 
E484 B4 
E485 67 
E486 C9 



CALL 

MVI 

ORA 



MOV 
RET 
END IF 



SIDEONE 

A,80H 

H 



H,A 



;SIDE TWO BIT 

; AND SECTOR 



E487 60 



E488 69 
E489 23 
E48A C9 



IF MAXHD NE 
TRANHD MOV H.B 



;HARD DISK TRANSLATION ROUTINE 



MOV 


L,C 


I NX 


H 


RET 






* 

* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A * 



"*~ PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 

* DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 

* DIFFERENT SECTOR SIZES: ______ _____ 



* 
* 
* 



* 
* 

* 



* 



1) 128 BYTES SINGLE DENSITY. 

2) 256 BYTES DOUBLE DENSITY. 

3) 512 B YTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY." 



* 
* 

* 



*********************************************************** 



E48B 79 
E48C _3244EE_ 
E48F" FE07~" 
E491 D293E5 
E494 7B 
E493~ E601 
E497 C27AE5 



E49A 3A44EE 



SETDRV 



MOV 
STA 
CPI 
JNC 
MOV 



ANI 
JNZ 

LDA 



A,C ;SAVE THE DRIVE # 

C PMDRV 

MAXFLOPlTMAXHb*LMbSK) rCHECK FOR A VALID DRIVE "#" 

ZRET t ILLEGAL DRIVE # 

A,E JTEST IF DRIVE EVER LOGGED IN BEFORE 



SETDRV1 



;BIT OF E = -> NEVER SELECTED BEFORE 



< 

7} 






< 

i 

I 33 

m 
> 

a 



TMAXHD NE 0) Md'TMAXFLOP NE 0) -BOTH TYPES"? 
CPMDRV ?GET THE DRIVE NUMBER 



E49D FE03 
E49F DA4DE5 
E4XZ-D603 



E4A4 4F 
E4Ab~3EB(0 
E4A6 = 



IF 

CPI 

JC 

"SUI 

ELSE 

CPI 
"JNC 

ENDIF 

ENDIF 



IF 
MOV 

~~ mvt 

FLOPFLG EQU 



FIRST 

MAXHD* LOGDSK 
DRVH D _ __ 
MAXHD* LOGDSK 

MAXFLOP 



;OVER THE # OF HARD DISKS ? 



;OVER THE # OF FLOPPIES ? 



SUBFP 



(MAXFLOP NE 0) AND FIRST 
C, A .SAVE DRIVE # 

"AV"2f 



;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



$-1 



CP/M MACRO ASSEM 2.0 



#036 



*** Cbios For CP/M Ver . 2.2 *** 



E4A7 


A7 


E4A8 


C2F8E4 


E4AB 


0611 


E4AD 


2100F8 


E4B0 


3EC3 


E4B2 


BE 



ANA 
JNZ 
MVI 



A 

FLOPOK 

B.17 



CLOPP 



LXI 
MVI 

CMP 



H,DJBOOT 
A, (JMP) 

M 



; FLOPPIES HAVN'T BEEN AC CESSED 



; CHECK IF 2D CONTROLLER IS INSTALLED 



E4B3 


C293E5 


E4B6 


23 


E4B7 


23 



E4B8 
E4B9 
E4BA 



23 
05 
C2B2E4 



JNZ^ 
INX 
I NX 



ZRET 



H 
H 



INX 
DCR 
JNZ 



H 
B 
CLOPP 



E4BD 
E4C0 
E4C3 



11D5E4 
21E2FF 
061E 



E4C5 
E4C8 
E4CA 



CD06eT~ 

3EFF 

32F9FB 



E4CD 
E4CF 
E4D2 



3ED0 

32FCFB 

C3F3E4 



LXI 


D,DJINIT 


LXI 


H.ORIGIN+7E2H 


MVI 


B,30 



; INITIALIZATION SEQUENCE 
7 LOAD ADDRESS 
;BYTE COUNT 



CALL 
MVI 

STA 



MOVLOP 
A,0FFH 
DREG 



; START 1791 



MVI 
STA 
JMP 



A, CLRCMD 

CMDREG 

DJNEXT 



; 1791 RESET 



E4D5 0000001 800DJINIT DB 
E4E5 09FF09FF09 DB 



0, 0, 0, 18H, 0, 0, 8, 0, 7EH, 0, 8, 0, 9, 0FFH, 9, 0FFH 
9, 0FFH, 9, 0FFH , 9, , 1, 0, 0, 0, 0. 0. 0, 



E4F3 3E01 
E4F5 32A6E4 



DJNEXT 



MVI 
STA 



A,l 
FLOPFLG 



;SAVE 2D INITIALIZED FLAG 



E4F8 

E4FB 

E4FE 

E500_ 

E303 

E506 

E509 



^50C 

E50E 

E50F 

~E5T0~ 

E513 

E514 



210100 
"2246EE 
3E01 
3245EE 
CDD0E6 
DA93E5 
CD27F8_ 
"E60C " 
F5 
IF 



FLOPOK 



ENDIF 

IF 

LXI 



MAXFLOP NE 
H,l 



SHLD 

MVI 

STA 



TRUESEC 

A,l 

CPMTRK 



CALL 

JC 

CALL 



FILL 
ZRET 
DJSTAT 



ANI 

PUSH 

RAR 



"2TBBE5" 
5F 
1600 



LXI 
MOV 
MVI 



0CH 
PSW 

~h7xlts~ 

E,A 
D,0 



"^5T6~T9^ 

E517 E5 

E518 CDA2E5 
HE5TB"EB 

E51C Dl 

E51D 0602 
~^E5rE r "CD06E7" 

E522 110800 

E525 19 
"E^26~E5 

E527 2A07F8 

E52A 23 

E52B 7E 



DAD 

PUSH 

CALL 



D 
H 
GETDPB 



"XCHG 
POP 
MVI_ 
CALL 
LXI 
DAD 
PUSH 
LHLD 
INX 



D 

B,2 

MOVLOP 

D,8 

D 

H 

ORIGIN+7 

H 



; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 

;TEST FOR ERROR RETURN 

yGET STATUS ON CURRENT DRIVE 



7 STRIP OFF UNWANTED BITS 
7 USED TO SELECT A DPB 



7 TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



7 NUMBER OF BYTES TO MOVE 



? MOVE THE ADDRESS OF XLT 
7 OFFSET TO DPB POINTER 
7HL <- &D PH.D PB 

GET ADDRESS OF DJ TERMINAL OUT ROUTINE 

BUMP TO LOOK AT ADDRESS OF 

UART STATUS LOCATION 



< 

73 






r x 
m 
> 
•a 



MOV 



A,M 



CP/M macro ASSEM 2.0 



E52C 
E52E 
E52F 
E531 
E532 
E534 
E537 
E53A 
E53D 



EE03 

6F 

26FB 

7E 

E608 

1122E9 



C23DE5 
1162E9 
EB 



E53E 
E53F 
E540 



Di 
Fl 
17 



E541 
E542 
E543 



17 
4F 
0600 






E545 
E546 
E547 



09 
EB 
73 



E548 
E549 



23 
72 



E54A C37AE5 



E54D 
E550 
E551 



CD99E5 

79 

324FE8 



E554 
E557 
E558 



CD3DE8 

7E 

3C 



E559 


C27AE5 


E55C 


F6FC 


E55E 


D352 


" E560 


3E05 


E562 


D350 


E564 


0EEF 


~~E555 


210000 


E569 


2B 


E56A 


7C 


EbtoB 


Bb 


E56C 


CC97E5 


E56F 


C8 


E5T0" 


DB50 


E572 


E620 


E574 


C269E5 



#037 

XRI 
MOV 
MVI 
MOV 
AN I 
LXI 



*** Cbios For CP/M Ver . 2.2 *** 

3 ; ADJUST FOR PROPER REV DJ 

L,A 

H. (ORI G IN+300H)/100H 

A,M 

DBLSID ; CHECK DOUBLE SIDED BIT 

D,DPB1 28S :BASE FOR SINGLE SIDE D DP B'S 



SIDEOK 



JNZ 
LXI 
XCHG 



SIDEOK 
D,DPB128D 



;BASE OF DOUBLE SIDED DPB'S 
;HL <- DBP BASE, DE <- &DPH.DPB 



POP 
POP 
RAL 



RAL 
MOV 
MVI 



D 

PSW 



C,A 
B,0 



; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



DAD 

XCHG 

MOV 



B 
M,E 



; PUT DPB ADDRESS IN DPH 



INX 
MOV 
END IF 



H 
M,D 



IF 
JMP 



SUBFP 



IF 
SUI 
END IF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

SET DRV1 ?SKIP OVER THE HARD DISK SELECT 

NOT FIRST 

MAXFLOP ; ADJUST THE DRIVE # 



ENDIF 



IF 



MAXHD NE 




DRVHD 



CALL 

MOV 

STA 



DIVLOG 

A,C 

HDDISK 



; DIVIDE BY LOGICAL DISKS PER DRIVE 






< 

CO 

m 

> 



CALL 


DRVPTR 


MOV 


A,M 


INR 


A 



SETDRV1 

NULL 

HDF UNC 

A,SCENBL 

HDCNTL 

C,239 



; SELECT DRIVE 



; ENABLE THE CONTROLLER 

;WAIT APPROX 2 MINUTES FOR DISK TO READY 



Ll 



TDELAY 



H,0 

H 

h,H 

L" 

DCRC 



IN 


HDSTAT 


AN I 


DRVRDY 


JNZ 


TDELAY 



;TEST IF READY YET 



ANA 



NOT FUJITSU 

H,0 

C_,JLNDEX_ 

HDSTAT 

C 



;TIME ONE REVOLUTION OF THE DRIVE 
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INDX1 



#0 38 

MOV 

IN 

ANA 



*** Cbios For CP/M Ver . 2.2 *** 

B,A ;SAVE CURRENT INDEX LEVEL IN B 

HDSTAT 

C 





INDX2 


CMP 

JZ 

INX 


B 


;LOOP UTIL INDEX LEVEL CHANGES 








INDX1 
H 





IN 

ANA 

CMP 



HDSTAT 



C 
B 



[ 5 

^— —JE. 



JNZ 

DAD 
NDIF 



INDX2 

M10 

H 



-IF 
XRA 
MOV 



M26 

A 

A,H 



RAR 




MOV 


D,A 


MOV 


A,L 



RAR 
MOV 
DAD 



E,A 
D 



; START COUNTING UNTIL INDEX RETURNS TO 
PREVIOUS STATE 



;MEMOREX M10' S_ HAV E 40 MS HEAD SE TTLE 



;SHUGART M26 ' S HAVE 30 MS HEAD SETTLE 



-END IF 



E577 CD2CE7 



E57A 

E57D 

E5B~0~ 

E581 

E582^ 

E584 

E587 

E588 

"E589 

E58A 

E58B 



CDA2E5 
010F00 



09 
7E 
E607 



32CFE5 

7E 

IF 



IF 

IF 

IF 



SHLD_ 
-ENDIF" 
CALL 
END IF 



SETTLE 



SETDRV1 CALL 

LXJL_ 

DAD 
MOV 

ANI 



; SAVE THE COUNT FOR TIMEOUT DELAY 



HDHOME 



E58C 
E58E 
E591 
:E592~ 



E60F 

320DE6 

EB 



STA 
MOV 
RAR 



RAR 
RAR 
RAR 



ANI 
STA 
XCHG 



GETDPB 
B,15 

"B" 

A,M 
7H 



SECSIZ 
A,M 



0FH 
SECPSEC 



;GET ADDRESS OF DPB IN HL 
^OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



;HL <- DPH 



< 

71 






RET 



E593 210000 
E596 C9~ 



ZRET 



LXI 

RET 



H,0 



; SELDRV ERROR EXIT 



Ei>9/~~0D~ 
E598 C9 



"DCRC 



IF 

OCR 

RET 



MAXHD NE 
C 



; CONDITIONAL DECREMENT C ROUTINE 



^Eb99 0E00 
E59B D603 



DTVLOG MVI 
DIVLOGX SUI 



C,0 
LOGDSK 



CP/M MACRO ASSEM 2.0 #039 *** Cbios For CP/M Ver . 2.2 *** 



E59D D8 
E59E 0C 
E59F C39BE5 



RC 
INR 

JMP 

END IF 



C 
DIVLOGX 



***************************************************************** 



GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY 

* SELECTED DRIVE . DE POINTING TO DP H. 

* 






E5A2 3A44EE GETDPB LDA 


CPMDRV 




E5A5 6F 


MOV 


L,A 




E5A6 2600 


MVI 


H,0 


i 


E5A8 29 


DAD 


H 




E5A9 29 


DAD 


H 




E5AA 29 


DAD 


H 




E5AB 29 


DAD 


H 




E5AC 11D2E9 


LXI 


D,DPBASE 




E5AF 19 


DAD 


D 




E5B0 E5 


PUSH 


H 




E5B1 110A00 


LXI 


D,10 




E5B4 19 


DAD 


D 




E5B5 7E 


MOV 


A,M 




E5B6 23 


INX 


H 




E5B7 66 


MOV 


H,M 




E5B8 6"F 


MOV 


L,A 




E5B9 Dl 


POP 


D 




E5BA C9 


RET 





;FORM OFFSET 



;BASE OF DPH'S 



;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

7GEinL0Wl3YTE OF~ DPB ADDRESS" 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 
*"XLTS~IS" A""fABLE~OF" ADDRESS "THAT POINT TO EACH OF THE'XLT" "■'".*" 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

~*~* * * * * *~* ****** ***"**"* * ***** *"**~* * * * * ~**~*Mjrw*'*¥*ii*inr*w**'*~ir* ******* * *~ 



< 






! 3J 

> 



E5BB 54EB 
E5BD 6FE8 
E5BF A4E8 
E5CT~^TE8~" 



XLTS 



IF 

"DW 

DW 

DW 



JIAXFLOP NE 
XLT128 
XLT256 
XLT512 



XLT FOR 128 BYTE SECTORS 
XLT FOR 256 BYTE SECTORS 
XLT FOR 512 BYTE SECTORS 



DW 

END IF 



XLT124 



;XLT FOR 1024 BYTE SECTORS 



-************* * *-*TTW*-*-*-*-* WW* "JFW* * * * * *-»'»"*"*-* *"*"**-**- ***"**-*"*-**-*-*■*-*-*-*-* **■*■*- 

* * 

* WR ITE ROUTINE MOVES DATA^ FR OM MEMORY INT O THE BUFFER. IF THE * 
"* — DE'Si'RED" CP/M SECTOR IS" NOT" CONTAINED IN THE DISK BUFFER, THE""*" 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INT O, THEN A READ IS PER FORMED INTO TH E BUFF ER TO GE T * 
""*"" THE DESIRED SECTOR. ONCE THE" CORRECT SECTOR I S~ IN" MEMORY, THE ■>"' 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 



***************************************************************** 
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#040 



*** Cbios For CP/M Ver . 2.2 **' 



E5C3 79 
E5C4 3235E 6 
E5C7 3E01 
E5C9 06 



WRITE 



MOV 

STA. 



A,C 
WRITTYP 



;SAVE WRITE COMMAND TYPE 



MVI 
DB 



A,l ,• SET WRITE COMMAND 

(MVI) OR (B*8) ;THIS "MVI B" INSTRUCTION CAUSES 

; THE FOLLOWING "XRA A" TO 
BE SKIPPED OVER. 



***************************************************************** 



* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 
*' REQUESTED FROM CP/M IS IN THE BUFFER. THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO T HE DISK IF IT HAS EVER BEEN WRITTEN INTO. THEN * 



~*~ FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE 
* DESIRED CP/M SECTOR. 



* 
* 



~*TT* * * * * * * * * ***** * * * ********************************************** 





E5CA 


AF 


READ XRA A ; SET THE COMMAND TYPE TO READ 


|:: 


EbCB 


3221E6 


STA RDWR ;SAVE COMMAND TYPE 
***************************************************************** 



TE * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 



~*~ SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ 

* FROM THE DISK. 



* 

* 
* 



***************************************************************** 



"E5CE 'maw 

E5CF - 



REDWRT MVI 
SECSIZ EQU 



B,0 
$-1 



"^5W~ 
E5D3 
E5D4 

"E5D6 
E5D7 
E5D8 

~E5DA~ 

E5DB 

E5DC 

T35DD 
E5E0 
E5E1 
E5~E2~ 
E5E3 
E5E4 
E5E5~ 



"2A42EE 

7C 

E680 

~4F 

7C 

E67F 

67 

2B 

05 

~C£EAE5~ 

B7 

7C 

IF " 

67 

7D 

IF 



LHLD 

MOV 

ANI 



MOV 
MOV 
ANI 



CPMSEC 
A,H 
80H 
"C , A 
A,H 
7FH 



;THE IS MODIFIED TO CONTAIN THE LOG2 
; OF THE PHYSICAL SECTOR SIZE/ 128 
ON T HE CURRENTL Y SELECTED DI SK. 
;GET THE DESIRED CP/M SECTOR # 

;SAVE O NLY THE SIDE BIT 
', REMEMBER THE SIDE 

; FORGET THE SIDE BIT 



MOV 

DCX 

DIVLOOP DCR 

ORA 
MOV 



H,A 

H 

B 



; TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 



DIVDONE 

A 

A.H 



E5E6 6F 
E5ET C3DCE5" 
E5EA 23 



RAR 
MOV 
MOV 
RAR 

MOV 



H,A 
A,L 



L,A 



j DIVIDE THE CPAM SECTOR #" BY THE SIZE 
; OF THE PHYSICAL SECTORS 



JMP 
DIVDONE INX 



DIVLOOP 
H 




CP/M MACRO ASSEM 2.0 

E5EB 7C 
E5EC Bl 
E5ED 67 



#041 

MOV 
ORA 
MOV 



*** Cbios For CP/M Ver. 2.2 *** 



E5EE 2246EE 
E5F1 2144EE 
E5F4 1148EE 



SHLD 

LXI 

LXI 



A,H 
C 

H,A 

TRUESEC 

H,CPMDRV 

D,BUFDRV 



; RESTORE THE SIDE BIT 



;SAVE THE PHYSICAL SECTOR NUMBER 

.♦POINTER TO DESIRED DRIVE/TRACK, AND SECTOR 

? POINTER TO BUFFER DRIVE. TRACK, AND SECTOR 



E5F7 0605 MVI B,5 

E5F9 05 DTSLOP DCR B 
E5FA CA08E6 JZ MOVE 





E5FD 1A 


LDAX 


D 




E5FE BE 


CMP 


M 


1 


E5FF 23 


INX 


H 



7 COUNT LOOP 

;TEST IF DONE WITH COMPARE 

;YES. MATCH. _GO_ MOVE THE DATA _ 

;GET A BYTE TO COMPARE 

;TEST FOR MATCH 

;BUMP POINTERS TO NEXT DATA ITEM 



E600 13 
E601 CAF9E5 



INX 
JZ 



D 
DTSLOP 



; MATCH, CONTINUE TESTING 



************************************************************* 

*.. ; * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 



E604 CDD0E6 
E607 D8 



* NECESSARY AND THEN REFILL. * 

* * 
***************************************************************** 



Pf" Z/-/S// 



&'£?V> 



(J & 



^L 



yfri 



^^***m-** 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
; NO GO OD, RETUR N WITH ERROR IND ICATION 



***************************************************************** 
* * 







* MOVE HAS BEEN 

* THE BUFFER. 
* 


MODIFIED TO CAt 




E608 3A42EE 


******************************* 
MOVE LDA CPMSEC 




E60B 3D 
E60C E600 
E60D - 


DCR 

ANI 

SECPSEC EQU 


A 

$-1 




E60E 6F 
E60F 2600 


MOV 
MVI 


L,A 
H,0 




fiSIl 29 
E612 29 
E613 29 


DAD 
DAD 
DAD 


H 
H 
H 




E~bT4"~29 ~ 
E615 29 
E616 29 


DAD 
DAD 
DAD 


H 
H 
H 




E617 29 
E618 1142EA 
E61B 19 


DAD 
LXI 
DAD 


H 

D, BUFFER 

D 




nET6IC EB " 
E61D 210000 


XCHG 
LXI 


H,0 




E61E = 
E620 3E00 


CPMDMA EQU 
MVI 


$-2 
A,0 




" EB^I = 
E622 A7 


RDWR EQU 
ANA 


$-1 
A 



* 
* 



;GET THE CP/M SECTOR TO TRANSFER 
; ADJUST TO PROPER SECTOR IN BUFFER 
; STRIP OFF HIGH ORDERED BITS 
;THE IS MODIF IED T O RE P RESENT THE # OF 
SECTORS PER PHYSICAL" SECTORS 



;PUT INTO HL 



;FORM OFFSET INTO BUFFER 



BEGINNING ADDRESS OF BUFFER 

FORM BEGINNING ADDRESS OF SECTGR TO TRANSFER 



DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED T/ 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A_ ZERO_IP A JREAD,2; OR A 1 IF WR ITE 

;TEST WHICH KIND OF OPERATION 



< 

Co 
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E623 C22BE6 
E626 CD04E7 
E629 AF 



#042 *** Cbios For CP/M Ver. 2.2 *** 

7 TRANSFER DATA INTO THE BUFFER 



E62A C9 
E62B EB 



OUTOF 



INTO 



JNZ 


INTO 


CALL 


MOVER 


XRA 


A 



RET 
XCHG 



E62C CD04E7 
E62F 3E01 



CALL 
MVI 



E631 323EE6 
E634 3E00 
E635 - 



STA 

MVI 

WRITTYP EQU 



E636 3D 
E637 3E00 
E639 3235E6 



DCR 
MVI 
STA 



MOVER 



A,l 



BUFWRTN 
A,0 

3-L 

A 

A,0 

WRITTYP 



E63C ~C0" 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 



;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 



RNZ ; NO ERROR EXIT 

************** ******* * * ************* * * ******* ***** *************** 



* 
* 
* 



* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF 

* IT HAS EVER BEEN WRITTEN INTO. 

Tf ; ; ~~ : ~~~~ ~~~ ..- ■:. . ..'; -,;,- < ~~ — — — — — Jf-. 

******************* ******** ***'** * **** ********** **'** ****:*** ***** * * ; 



E63D 3E00 

E63E = 
"E63F hJ~ 
E640 C8 



E641 2118F8 
E644 11BFE7 



E64"7 CD13E7 



FLUSH 



MVI 



BUFWRTN EQU 



A,0 
§-1 



;THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 



ANA 
RZ 



jTEST IF WRITTEN INTO 
?NQT WRITTEN, ALL DONE 



IF 

LXI 

LXI 

CALL 

ELSE 

IF 



LXI 

ENDIF 

IF 

T3nr 

ENDIF 
ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJWRITE ; WRITE OPERATION FOR DISK JOCKEY 
D^, HDWRITE ; WRI TE OPERATION FOR HARD D ISK 

DECIDE " ,' """":. 



MAXHD NE 
H, HDWRITE 



MAXFLOP NE 



ff,"CJWRITE 



***************************************************************** 

* * 

r ~PEEP~FREPARES "TO" READ/WRTTE THE" DTSlC7 _ RETRIES _ AR£lVTTEMPfED7 *~ 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. _ ^___i__ * 



< 

7} 



fr 

M 



***************************************************************** 



E54A F3 
E64B AF 
E64C 323EE6 
Eb4F 22BIE6 
E652 060A 



TREP" 



~DI 
XRA 

STA 



A 
BUFWRTN 



;RESET INTERRUPTS 

; RESET BUFFER WRITTEN FLAG 



SHLD 
MVI 



RETRYOP 
B, RETRIES 



;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 



CP/M MACRO ASSEM 2.0 



#043 



*** Cbios For CP/M Ver. 2.2 *** 



E654 C5 
E655 3A48EE 



RETRYLP PUSH 
LDA 



B 
BUFDRV 



;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 



E658 FE03 



IF 
IF 
CPI 



E65A DA5FE6 
E65D D603 



JC 
SUI 
_EL.SE 
CPI 
JC 
SUI 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
FIRST 

MAXHD*LOGDSK __ ■ ■■ , , '■ . ■ ; ' '" ■ 

NO AD J ST 
MAXHD*LOGDSK 



MAXFLOP 
NOAD JST 
MAXFLOP 



END IF 



E65F 4F 



NOADJST MOV 



E660 2133E3 
E663 111BE7 
E666 CD0FE7 



LXI 
LXI 
CALL 



ELSE 

MOV 

IF 



CALL 

ENDIF 

IF 



CALL 

ENDIF 

ENDIF 



C,A 



H.DJDRV 
D,HDDRV 
DECIDGO 



; SELECT DRIVE 



C,A 

MAXHD NE 



HDDRV 



MAXFLOP NE 



DJDRV 



; SELECT THE DRIVE 



E669 3A49EE 
E66C A7 



E66D 4F 
E66E C5 



E66F 2109F8 
E672 112CE7 

E^75 CC0FE7 



LDA 

ANA 



MOV 
PUSH 



"IP" 7 
LXI 
LXI 



BUFTRK 
A 

C, A 
B 



;TEST FOR TRACK ZERO 



< 

x 



F3 



TMAXHD NE 0) AND (MAXFLOP NE IS) 

H,DJHOME 

D,HDHOME 



< 

_i 

i 
m 

> 



cz 


DECIDGO 




ELSE 






IF 


MAXHD NE 




CZ 


HDHOME 




ENDIF 






IF 


MAXFLOP NE 




CZ 


DJHOME 


;H 


ENDIF 






ENDIF 







;HOME THE DRIVE IF TRACK 



E678 CI 


POP 


B ; RESTORE TRACK # 


: ; ! : 


E679 210CF8 
E67C 113AE7 


IP 

LXI 

LXI 


(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJTRK 

D,HDTRK 




E67F CD0FE7 


"CALL 


DECIDGO 





ELSE 
IF 



CALL 
ENDIF 



MAXHD NE 

HDTRK ~ 
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#044 

IF 

CALL 

ENDIF 



ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 

;SEEK TO PROPER TRACK 



MAXFLOP NE 
DJTRK 



E682 2A4AEE 
E685 7C 
E686 07 
E68 7 E601 _ 
E689 4F 



E68A 2130F8 
E68D 1163E7 
E690 CD0FE7 



LHLD 



MOV 
RLC 
ANI_ 
MOV 

IF 



BUFSEC 



A,H 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 



C,A 



;C <- SIDE 



(MAXHD NE 0) AND (MAXFLOP NE 0) 



LXI 
LXI 
CALL 



ELSE 

IF 

CALL 



ENDIF 

IF 

CALL 



ENDIF 
ENDIF 



H,DJSIDE 
D.HDSIDE 
DECIDGO 



MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



; SELECT THE SIDE 



E693 2A4AEE 
E696 7C 
E697 E67F 
E599> 4?7 
E69A 4D 



LHLD 

MOV 

ANI 

MOV 

MOV 



BUFSEC 
A # H 
J7FH 
B,A " 
C f L 



^STRIP OFF SIDE BIT 
;C <- SECTOR #" 



E69B 210FF8 
E69E 116CE7_ 
E6 Al CD0FE7 



E6A4 0142EA 



IF 

LXI 

LXI 

CALL 

ELSE 

IF 



CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
H,DJSEC 

D^HDSEC 

DECIDGO 

MAXHD NE 



< 






■ Zl 
m 
> 



HDSEC 

MAX FLOP NE 
"DJSEC 






; SELECT THE SIDE 



LXI 



B, BUFFER 



;SET THE DMA ADDRESS 



E6A7 2112F8 
E6AA 115EE 7 
EbhD CD0FE7 



LXI 

LXI 

CALL 

ELSE 

IF 



CALL 
ENDIF 



TMAXHD NEB) AND (MAXFLOP NE 0J 
H,DJDMA 
D,HDDMA_ 
DECIDGO 

MAXHD NE 



HDDMA 





IF 


MAXFLOP NE 






CALL 
ENDIF 


DJDMA 


; SELECT THE SIDE 
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#045 
END IF 



*** Cbios For CP/M Ver . 2.2 *** 



E6B0 CD0000 



E6B1 


= 


E6B3 


CI 


E6B4 


3E00 


E6B6 


D0 


E6B7 


05 


E6B8 


37 



CALL_ _0 

RETRYOP EQU $-2 

POP B 

MVI A,0 



E6BD 
E6BF 
E6C2 



FE05 

C254E6 

C5 



E6C3 2109F8 



E6C6 112CE7 
E6C9 CC0FE7 



RNC 
DCR 
STC 



E6B9 3EFF 


MVI 


f. ■■ E6BB CS 


RZ 


E6BC 78 


MOV 



IF 

LXI 

LXI 

CZ 

ELSE 



IF 
CZ 
ENDIF 



IF 

CZ 
ENDIF 



7 GET OPERATI ON AD D RES S 



? RESTORE THE RETRY COUNTER 
?NO ERROR EXIT STATUS 



B 



; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 



A.0FFH 
A,B 



7 ERROR RETURN 

7 RETURN SAD NEWS 



CPI 


RETRIES/ 2 


JNZ 


RETRYLP 


PUSH 


B 



7RESEEK AFTER HALF RETRIES DONE 
7 TRY AGAIN 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
H,DJHOME 



D , HDHOME 
DECIDGO 



MAXHD NE 
HDHOME 



MAXFLOP NE 
DJHOME 



7 HOME THE DRIVE IF TRACK 



E6CC CI 



ENDIF 



POP 



B 




"E3CD C354E6 



JMP RETRYLP ?TRY AGAIN 

***************************************************************** 

~w. — ~ " """" " ~' : *"" 

* 



* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. 



< 

70 



N 



> 
D 



* * * * **-*~*~** ************************************* * ************* **** 



E6D0 CD3DE6 
-Ej6B3~'DB ~ 
E6D4 1144EE 
E6D7 2148EE 
E6DA 0604 
E6DC CD06E7 



FILL 



CALL 



FLUSH 



"E6T5F" 
E6E2 
E6E3 

~E6E5~ 
E6E9 
E6EA 
EBEB 
E6EC 
E6EF 
E"6F2 
E6F3 



"3A2TE6"" 

A7 

CAF8E6 

3A33E~6~~ 

3D 

3D 

C8 

CDA2E5 

110F00 

19 

7E 



RC 

LXI 

LXI 



MVI 
CALL 

LDA 
ANA 
JZ 



LDA 

DCR 

DCR 
~EZ~~ ~ 

CALL 

LXI 
T5ATT" 

MOV 



D,CPMDRV 
H.BUFDRV 



B,4 
MOVLOP 



RDWR 

A 

FREAD 



WRITTYP 

A 
A 



GETDPB 
D,15 



15 

A,M 



7 F LUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 



7 NUMBER OF BYTES TO MOVE 
7 COPY THE DATA 



CP/M MACRO ASSEM 2.0 #046 

E6F4 E603 ANI 

E6F6 3D DCR 

E6F7 C8 RZ 



*** Cbios For CP/M Ver. 2.2 *** 



3 
A 



E6F8 = 



FREAD 



EQU 
IF 



E6F8 2115F8 
E6FB 118AE7 
E6FE CD13E7 



(MAXHD NE 0) AND ( MAXFLOP NE 0± 



LXI 


H,DJREAD 


LXI 


D , HDREAD 


CALL 


DECIDE 



ELSE 

IF 

LXI 



MAXHD NE 
H, HDREAD 



END IF 

IF 

LXI 



MAXFLOP NE 
H,DJREAD 



;SELECT THE SIDE 



E701 C34AE6 



END IF 
ENDIF 
JMP 



PREP 



J SELECT DRIVE, TRACK, AND SECTOR. 



THEN READ THE BUFFER 
***************************************************************** 





■■*..■■ 






* 








* MOVER MOVES 128 BYTES OF DATA. 


SOURCE POINTER IN DE, 


DEST 


* 




■■■ 1 


i : — 


* POINTER IN HL. 
* 


— 





* 
* 


...... 


! 



***************************************************************** 



~£704~06S2r "" 
E706 1A 
E70777 
"E708 13 
E709 23 
E70A 05 

E70E C9 



"MOVER "MVl" B,128 
MOVLOP LDAX D 

MOV M,A 



TNX 
INX 
DCR 



JNZ 
RET 



D 

H 

B_ 

MOVLOP" 



LENGTH OF TRANSFER 
GET A BTE OF SOURCE 
MOVE IT 



BUMP POINTERS 

; U PDATE COUNTE R 

; CONTINUE MOVING UNTIL DONE 



._: 



< 






< 



■ 3 
m 



TT**"* ********* ************ * * ************************************* * 
* * 



* ROUTINES TO DECID E WHICH C ONTRO LLER TO USE. 



* 

*" 



***************************************************************** 



E70F CD13E7 
E712 E9 



""E71T" 3A4Birr 

E716 FE03 
'E7IB"'T50"~ " 



IF~ 

DECIDGO CALL 
PCHL 
~ ENDIF" 

IF 



DECIDE LDA 
IF 
CPI 
RNC 
ELSE 
CPI 
"RC 
ENDIF 



TMAXHD NE 07 ANDTMAXFLOP NE 0j" 
DECIDE ; WHICH CONTROLLER ? 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

BUFDRV" 

FIRST 

MAXHD*LOGDSK 



;GET PROPER ROUTINE INTO H&L, BASED 
? ON CURRENTLY SELECTED DRIVE 



MAXFLOP 



CP/M MACRO ASSEM 2.0 #047 *** Cbios For CP/M Ver. 2.2 *** 



E719 EB 
E71A C9 



XCHG 

RET 

ENDIF 



** * *************************** ************** **** ***************** 

* * 



* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 

* * 



***************************************************************** 



IF 



MAXHD NE 



E71B 79 
E71C CD99E5 
E71F 79 



HDDRV 



MOV 

CALL 

MOV 



A,C 
DIVLOG 
A,C 



; SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE # 



E720 324FE8 
E723 F6FC 
E725 D352 



ST A 
ORI 
OUT 



HDDISK 

NULL 

HDFUNC 



? SELECT THE DRIVE 



E727 3E0F 
E729 D350 
E72B C9 



MVI 
OUT 
RET 



A,WENABL 
HDCNTL 



E72C CD3DE8 
E72F 3600 



HDHOME 



CALL 
MVI 



DRVPTR 
M,0 



;SET TRACK TO ZERO 



E731 DB50 
E733 E601 
E735 C8 



STEPO 



IN 

ANI 

RZ 



IF 

IN_ 

ANI 

JZ 

MVI 

STC 

CALL 

JMP_ 

ELSE 



HDSTAT 
TKZERO 



;TEST STATUS 
;AT TRACK ZERO ? 
;YES 



not Fujitsu 

HDSTAT 



TKZERO 

DELAY 

A,l 



ACCOK 
STEPO 



;TEST STATUS 



;AT TRACK ZERO ? 



:TAKE ONE STEP OUT 



< 

-a 






"E73n6~"AF 
E737 C34BE7 



JMP 
ENDIF 



a: 

ACCOK 



DELAY 
"SETTLE" 
DELOOP 



IF 
LXI 



NOT FUJITSU 
H,0 



DCX 
MOV 



ORA 
I NX 
DCX 



T-2" 

H 

L 

H 
H 



JNZ 
RET 
ENDIF 



DELOOP 



;GET DELAY 



;WAIT 20MS 



E73A CD3DE8 



HDTRK 



CALL 



DRVPTR 



;GET POINTER TO CURRENT TRACK 



CP/M MACRO ASSEM 2.0 #048 

E73D 5E MOV 

E73E 71 MOV 

E73F 7B MOV 

E740 91 
E741 C8 
E742 3P 



E/43 DA48E7 
E746 2F 
E747 3C 



E748 C34BE7 



HDTRK2 



HDTRK2 



SUB 

RZ 

CMC 

JC 

CMA 

INR 

IF 

JMP 

ELSE 



CALL 
JMP 
END IF 



*** Cbios For CP/M Ver . 2.2 *** 



E,M 
M,C 
A,E 



HDTRK2 



FUJITSU 
ACCOK 



ACCOK 
DELAY 



;GET CURRENT TRACK 

; UPDATE THE TRACK 

7 NEED TO SEEK AT ALL„?_ 



?GET CARRY INTO DIRECTION 



E74B 
E74C 
^T74~F~ 
E751 
E753 



47 

CD48E8_ 

E6FB 

D352 

F604 



"E75y 
E757 

A 7 ! 8 

E75B 



~D"332 

05 

C24FE7 
"C364E7 



ACCOK 
"SLOOP 



MOV 
CALL 
AN I 
OUT 
ORI 



OUT 
DCR 
JNZ 



B,A 
BUILD 



NSTEP 

HDFUNC 

PSTEP 



HDFUNC 

B 

SLOOP 



;PREP FOR BUILD 



;GET STEP PULSE LOW 
; OUTPUT LOW STEP LINE 
;SET STEP LINE HIGH 



; OUTPUT HIGH STEP LINE 

; UPDATE REPEAT COUNT 

?KEEP GOING THE REQUIRED # OF TRACKS 



JMP 



WSDONE 



E75E_ 60 _ 
E75F 69" 
E760 22A4E7 
E763 - 
"E763" C9 — 

E764 DB50 

E768 CA64E7 
E76B C9 



HDDMA 



MOV 



HDSIDE 



WSDONE 



MOV 

SHLD 

EQU 

RET 

IN _ 
ANl 
JZ 
RET 



H,B 
L,C 
HDADD 

$ 



HDSTAT 



COMPLT 
WSDONE 



;SAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



< 






< 

ill 



HDSEC 



IF 

MVI 

ANA" 

CZ 

STA 

MVI" 

ANA 

RLC 

RLC 

STA 
"GETSPT HVT" 
RET 



M26 

A,01FH 

C 

GETSPT 

HDSECTR 



A70E0H 
C 



HEAD 



;FOR COMPATIBILITY WITH CBIOS REV 2.3, 2.4 



A,HDSPT 



E76C 79 



HDSEC 



ELSE 



MOV 



A,C 



E76D CD8TE7 
E770 C615 



CALL 
ADI 



DIVSPT 
HDSPT 



CP/M MACRO ASSEM 2.0 



#049 



*** Cbios For CP/M Ver. 2.2 *** 



E772 A7 ANA 
E773 CC7DE7 CZ 
E776 322DE8 STA 


A 

GETSPT 

HDSECTR 


m 


O Eh > 

s co s 

Eh 
CO 

M 

00 
M 

MMM 


A, C 

HEAD 

A,HDSPT 




E77F 0D DCR 
E780 C9 RET 


C 




E781 0E00 DIVSPT MVI 
\ E783 D615 DIVSPTX SUI 
i_ E785 D8 RC 


C,0 

HDSPT 




E786 0C INR 
E787 C383E7 JMP 

ENDIF 


C 

DIVSPTX 




L E78A CD08E8 HDREAD CALL 
1 E78D D8 RC 


HDPREP 




E78E AF XRA 
E78F D351 OUT 
E791 2F CMA 


A 
HDCMND 




E792 D353 OUT 
E794 D353 OUT 
E796 3E01 MVI 


HDDATA 
HDDATA 
A,RSECT ;READ SECTOR COMMAND 


vp 


E798 D351 OUT 
E79A CDEEE7 CALL 
E79D D8 RC 


HDCMND 
PROCESS 




E79E AF XRA 
E79F D351 OUT 
E7A1 0680 MVI 


A 

HDCMND 

B,SECLEN/4 




E7A3 210000 LXI 
E7A4 - HDADD EQU 
E7A6 DB53 IN 


H,0 
?-2 
HDDATA 


< < 


i E7A8 DBS 3 IN 
! E7AA DB53 RTLOOP IN 
E7AC 77 MOV 


HDDATA 

HDDATA ;MOVE FOUR BYTES 

M,A 




E7AD 23 INX 
E7AE DB53 IN 
E7B0 77 MOV 


H 

HDDATA 

M,A 




E/Bl 23 INX 
E7B2 DB53 IN 
; E7B4 77 MOV 


H ■ : t i 

HDDATA 
M,A 




E/Bb Z.5 INX 
E7B6 DB53 IN 
E7B8 77 MOV 


H 

HDDATA 

M,A 




E7B9 23 INX 
E7BA 05 DCR 
E7BB C2AAE7 JNZ 


H~ -■■--■: — ~ - " ■ -■ '-' ■ "- ~ -'■- "1 

B ! 
RTLOOP 




E/BE C9 RET 
E7BF CD08E8 HDWRITE CALL 


HDPREP ; PREPARE HEADER 




E/C2 D8 RC 
E7C3 AF XRA 
E7C4 D351 OUT 


• 

■A 
HDCMND 




E7Cb 2AA4E7 LHLD 
E7C9 0680 MVI 


HDADD 
B,SECLEN/4 




! 





cp/m macro ASSEM 2.0 



#050 



*** Cbios For CP/M Ver. 2.2 *** 



E7CB 
E7CC 
E7CE 



E7CF 
E7D0 
E7D2 
E7D3 
E7D4 
E7D6 



7E 
D353 

23 

7E 

D353 

23 



WTLOOP 



7E 

D353 

23 



E7D7 
E7D8 
E7DA 



7E 

D353 

23 



E7DB 
E7DC 
E7DF 



05 

C2CBE7 

3E05 



E7E1 
E7E3 
E7E6 



D351 

CDEEE7 

D8 



E!7E7 
E7E9 
E7EA 



3E10 

A0 

37 



E7EB 
E7EC 
E7ED 



"cer 

AF 
C9 



E7EE 
E7F0 
E7F1 
E7F3 
E7F6 



DB50 
47 

mm 

CAEEE7 
3E07 



~E7F8 
E7FA 
E7FC 



D330" 

DB50 

E608 



Y7FE~ 
E7FF 
E800 



T7 
C0 
DB51 



E802 
E804 
E805 


E602 
37 

C0 


ES~T 
E807 


C9 


E808 
E80A 
E80C 


DB50 
E620 
37 


E80D 
E80E 
E810 


C0 

3E08 

D351 


EBT2" 
E815 
E817 


CD48E8 

F60C 

D352 


F E8T9" 
E81C 
E81E 


"3A49E8 

D353 

CD3DE8 


"E82r 
E822 


D353 



MOV 
OUT 
I NX 
MOV 
OUT 
INX 



A,M 
HDDATA 

H 



;MOVE 4 BYTES 



MOV 
OUT 
INX 



MOV 
OUT 
INX 



DCR 
JNZ 
MVI 



OUT 

CALL 

RC 

MVI 

ANA 
STC 



RZ 
XRA 

RET 



PROCESS IN 

MOT 

ANI 
JZ 
_____ _MVI 

"" "OUT 
IN 
ANI 

~ STc 

RNZ 

IN 

ANI 

STC 

RNZ 



HDPREP 



XRA 

RET 

TNl 
ANI 
STC_ 
RNZ 7 
MVI 
OUT 
CALL 
ORI 
OUT 

"EI5A 
OUT 
CALL 

"MOV" 
OUT 



A,M 
HDDATA 

H 

A,M 

HDDATA 

H 

A,M 

HDDATA 

H 



B 

WTLOOP 
A ,WSE CT 
"HDCMND - 
PROCESS 



; ISSUE WRITE SECTOR COMMAND 




A # WFAULT 
B 



HDSTAT 

J_A 

OPDONE 

PROCESS 

A,DSKCLK 



;WAIT FOR COMMAND TO FINISH 



HDCNTL 
HDSTAT 
TMOUT 



; TIMED OUT ? 



< 

33 



6 



< 



> 

3 



HDRESLT 
RETRY 



;ANY RETRIES ? 



HDSTAT 
DRVRDY 



A, ISBUFF 

HDCMND 

BUILD" 

0CH 

HDFUNC 

HEAD 

HDDATA 

DRVPTR 

A,M"" 

HDDATA 



; INITIALIZE POINTER 



;FORM HEAD BYTE 



;FORM TRACK BYTE 



CP/M MACRO ASSEM 2.0 



#051 



*** Cbios For CP/M Ver. 2.2 



*** 



E824 
E825 
EB27 
E82A 
E82C 
E82D 
E82E 
E830 
E831 



E833 
E835 
E837 



A7 

0680 
CA2CE8 
0600 """ 
3E00 

D353 

78 

D353 

3E07 

D350 

3E0F 



ANA 


A 


MVI 


B,80H 


JZ 


ZKEY 



E839 

E83B 
E83C 



D350 

AF 

C9 



E83D 2A4FE8 
E840 EB 



E841 1600 
E843 2153E8 
E846 19 
E847 C9 



MVI 

ZKEY MVI 

HDSECTR EQU 

OUT" 

MOV 

OUT 

MVI 
OUT 
MVI 



OUT 
XRA 
RET 



DRVPTR 



LHLD 
XCHG 



MVI 
LXI 
DAD 



B,0 
A,0 
$-1 



HDDATA 

A,B 

HDDATA 



A» DSKCLK 

HDCNTL 

A.WENABL 



HDCNTL 
A 



HDDISK 



D,0 

H, DRIVES 

D 



; FORM SECTOR BYTE 



RET 



E848 3E00 



E849 = 

E84A 17 

E84B 17 

"EB4~C 177 

E84D 17 

E84E F600 

"EB4F =""" "~ 

E850 EEF0 

E852 C9 



E853 - 



E853+FF 



BUILD 



MVI 



HEAD 



EQU 
RAL 
RAL 



RAL 
RAL 

ORI 



HDDISK 



EQU 
XRI 
RET 



DRIVES EQU 
KEPT 



DB 

ENDM 

DB 



A,! 



$-1 







$-1 

0F0H 



S 
MAXHD 



0FFH 
0FFH 



END IF 
************************************** 



-jf * 

* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE S ECTOR TRANSLA TION THAT OC C URS WHEN MAPPING CP/M * 
"SECTORS ~T0~PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW ~~*~ 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE '■'*" 

* TABLE S ARE L OC ATED ON TRACK SECTOR S 6 AND 8. THEY ARE * 

* LOADED" INTO "MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

***************************************************************** 



< 

73 






< 

! i 
m 
> 



IF 

E8 5 4 00_ XLT 128 DB 

E855"0T070D13I9 "DB 
E85A 050B1117 DB 



MAXFLOP NE 

_0_ : 

1,7,13,19,25 
5,11,17,23 



CP/M MACRO ASSEM 2.0 



#052 



* Cbios For CP/M Ver. 2.2 *** 



E85E 03090F15 
E862 02080E141A 
E867 060C1218 
E86B 040A1016 



DB 
DB 
DB 
DB 



3,9,15,21 
2,8,14,20,26 
.^JJL, 18.24 
4,10,16,22 



m 



E86F 00 

E870 0102131425 
E876 0304151627 
_E8 1 C J3506 1 7 182 9 
E882 0708191A2B 
E888 090A1B1C2D 
E88E 0B0C1D 1E2F 
E894 0D0E1F2031 
E89A 0F10212233 
E8A0 11122324 



XLT256 _DB 
DB~ 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 




1,2,19 



3,4,21 

5,6,23 

7,8,25" 

9,10,2 

11,12, 

13,14, 

15,16, 

17,18, 



,20,37,38 

722,3^9,40 

,24,^41,42 

,26,43,44 

7,28,45,46 

29,30 / 47 # 48_ 

31,32,49,50 

33,34,51,52 

35,36 



E8A4 00 XLT512 DB 
E8A5 01020 3 04 11 DB 
E8AD 2122232431 " "~DB" 
E8B5 0506070815 DB 
E8BD 2526272835 DB 



E8C5 090A0B0C19 
E8CD 292A2B2C39 
E8D5 0D0E0F101D 



"E8DD" 2D2E2F30 



DB 
DB 
DB 

DB" 




1,2,3,4,17,18,19,20 



33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37 , J38 , 3 9 X 40,53,54,5 5, 56 

9,10,11,12,25,26,27,28 "" 

41 , 42 , 43 ,44 , 57 , 58, 59 , 60 

13,14,15,16,29,30,31,32 



45,46,47,48 



E8E1J30 XLT124 DB 
"E8E2 0102030403 " "DB 



E8EA 191A1B1C1D 
E8F2 3132333435 
E8FA 090A0B0C0D 
E902 2122232425 
E90A J93A3B3C3D 
■E9X2" 1112131415" 
E91A 292A2B2C2D 



DB 
DB 



DB 
DB 
JDB 
DB 
DB 





1,2,3,47576, 
25,26,27,28, 
49,50,51,52, 



7,8 

29,30,31,32 

53,54,55,56 



9,10,11,12,1 
33,34,35,36, 
57,58,59,60, 



17,18,19,20, 
41,42,43,44, 



3,14,15,16 

37,38,39,40 

61 ,62,63, 64 

21,22,23,24 

45,46,47,48 



< 



< 

en 



> 

a 



******* W* * * * * * *~* * * *'* ********************************************* 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 
* ' "SPECIFIED "TTHARACTERT5TICS . *~ 

* * 
***************************************************************** 



***************************************************************** 

* * 

" w ~TBE~TOXrowTSG _ ^PB"D^FrNES"A"~"DTsT^TT^^ *~ 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

*-*-W*"WW*- WW*-** * * * *^'*^1T**'*^*'*'*^'****~*~*^**^ **** *^*******lt*** * * * * ■'■** ST** ***~ 



E922 1A00 
~E924~03~ ""■ 
E925 07 
E926 00 
E927 F2W 
E929 3F00 



DPB128S DW 


26 


B~B 
DB 
DB 


"3" 
7 



T5W 
DW 


242 
63 



jCP/M sectors/track 

;BSH '"." """"". 
; BLM 
;EXM 
•DSM 
;DRM 



CP/M MACRO ASSEM 2.0 #053 *** Cbios For CP/M Ver. 2.2 *** 



E92B C0 
E92C 00 
E92D 1000 



E92F 0200 
E931 01 



DB 
DB 
DW 



DW 
DB 



0C0H 


16 

2 
1H 



AL0 
AL1 
CKS 



OFF 

16* ((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

L OG2(»BYTES P E R SECTOR/128) .+ _l_± ____ 

8 IF DOUBLE SIDED. 



**************************************************************** 



L- 



E932 3400 
E934 04 
E935 0F 



E93B C0 
E93C 00 
E93D 20 00 
E93F 0200 
E941 12 



E942 3C00 
E944 04 
E945 0F 

E947 1801 
E949 7F 00 
E94B C0 
E94C 00 
E94D 2000 
"E94F 0200 
E951 33 



* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, 

* DOUBLE DENSITY. AND SINGLE SIDED. 



* 
* 
* 



***************************************************************** 



E936 


00 


E937 


F200 


E939 


7F00 



DPB256S DW 
DB 
DB 

DB 
DW 

DW 

DB 
DB 
DW 



52 

4 

J_5 


242 
127 



DW 
DB 



0C0H 



32__ 

2 

12H 



CP/M SECTORS/TRACK 

BSH 

BLM 



EXM 
DSM 
DRM 



AL0 
AL1 
CKS 



OFF 

16*((#CPM SECTORS /PHYSICAL SECTOR) -1) + 

^G2l#BYT_EJ3_PER ^_ SECTOR/ 128 )_+ 1_ + 

8 IF DOUBLE SIDED. 



***************************************************************** 

~* 



* 
* 
* 

*" 

***************************************************************** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 

* DOUBLE DENSITY, AND SINGLE SIDED. _ 



< 



_: 



DPB512S DW 
DB 
DB 



DB 
DW 
DW 
DB 
DB 
DW 



60 

4 

15 
-0 - - 

280 
127 



DB 



0C0H 


32 

____.._.__ 

33H 



CP/M SECTORS /TRACK 



BSH 
BLM 



EXM 
DSM 
DRM 



AL0 
AL1 
CKS 



OFF 

16*({#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

L0G2(#BYTES PER SECTOR/ 1 28 )+ 1 + 



:8 IF DOUBLE SIDED. 
***************************************************************** 



L__ 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, 
♦DOUBLE DENSITY, AND SINGLE SIDED. ;■ ; : ■ ■-, ,^. 



:.*., 
* 
* 



***************************************************************** 



CP/M MACRO ASSEM 2.0 #054 *** Cbios For CP/M Ver. 2.2 *** 





E952 4000 


DP1024S 


DW 


64 ; 


'CP/M SECTORS/TRACK 








E954 04 




DB 


4 : 


BSH 






' 


E955 0F 




DB 


15 ; 


•BLM 




■ : 


I 


E956 00 




DB 


: 


•EXM 




■ : : ■ ,' .'"■ 


i 


E957 2B01 




DW 


299 ; 


'DSM 








E959 7F00 




DW 


127 ; 


•DRM 








E95B C0 




DB 


0C0H ; 


■AL0 








E95C 00 




DB 





>AL1 






i . 


E95D 2000 




DW 


32 ; 


•CKS 








E95F 0200 




DW 


2 ; 


•OFF 








E961 74 




DB 


74H ; 


• 16*( ( #CPM SECTORS/ PHYSICAL SECTOR) 


-1) + 














•L0G2(#BYTES PER SECTOR/128) + 1 + 
•8 IF DOUBLE SIDED. 







E962 3400 
E964 04 
E965 0F 
E966 01 
E967 F200 

E96B C0 
E96C 00 
E96D 2000" 
E96F 0200 
E971 09 



*********************** **********************^ 

* ; -■■■■■■■#■ 

: . *■ 
*~ 
* 
***************************************************************** 



* THE FOL LOWI NG DPB DEFINES A DISKE T TE FOR 128 BYTE SECTORS, 



* SINGLE DENSITY, AND DOUBLE SIDED. 
* 



DPB128D DW 
DB 



52 
4 



•CP/M SECTORS/TRACK 
?BSH 



DB 


15 


DB 


1 


DW 


242 


DW 


127 


DB 


0C0H 


DB 





DW 


32 


DW 


2 


DB 


9H 



;BLM 
;EXM 
;DSM 



?DRM 

; AL0 
jALl 



;CKS 
;OFF 



***************************************************************** 
* * 

" "' "" ~ *~ 

* 
* 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, 

* DOUBLE DENSITY, AND DOUBLE SIDED. 
* 

** ********** * *-ir«-*-*-*iF*^*-*Tr*-w^ ¥*•# *tfst**"*"W*"*"*"*-*- ***-*- 



< 






E972 


6800 


E974 


04 


E975 


0F 


E976 


00 


Eyvv rifc^i 


E979 


FF00 


E97B 


F0 


E97C 


00 


E97D 


4000 


E97F 


0200 


-~E98T 


lA 



DPB2 56D DW 
DB 
DB 

DB_ 

DW 

DB_ 

DB 
DW 
DW 



DB 



104 
-f 

15 


48 ?T 
255 

0F0H 





64 

2 



CP/M SECTORS/TRACK 



BSH 
BLM 
EXM 



DSM 
DRM 
AL0 



AL1 
CKS 
OFF 



1AH 



***************************************************************** 



THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 






CP/M MACRO ASSEM 2.0 #055 *** Cbios For CP/M Ver. 2.2 *** 



E982 7800 
E984 04 



E989 FF00 
E98B F0 
E98C 00 



* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 
*********************************************************** 



DPB512D DW 
DB 



120 
4 



E985 


0F 


E986 


00 


E987 


3102 



DB 
DB 

DW 



15 



561 



DW 
DB 
DB 



255 
0F0H 





CP/M SECTORS /TRACK 
BSH 




BLM 
EXM 
DSM 



DRM 
AL0 
AL1 



E98D 4000 
E98F 0200 
E991 3B 



DW 
DW 
DB 



64 
2 

3BH 



CKS 
OFF 



***************************************** *****#******>**;*.*:* *i*;**** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 







***************************************************************** 




'.-;. 


E992 8000 


DP1024D DW 


128 


;CP/M SECTORS/TRACK 






E994 04 


DB 


4 


;BSH 






E995 0F 


DB 


15 


;BLM 






E996 00 


DB 





;EXM 






E997 5702 


DW 


599 


;DSM 






E999 FF00 


DW 


255 


;DRM 




i 


E99B F0 


DB 


0F0H 


;AL0 






E99C 00 


DB 





;AL1 






E99D 4000 


DW 


64 


; CKS 






E99F 0200 


DW 


2 


;OFF 





E9A17C 



DB 
ENDIF 



7CH 



***************************************************************** 

* ' * 

* THE FO LLOWING DPB'S A RE FOR THE STANDA RD FORMAT TO BE * 

* COMPATABLE WITH OLDER VERSIONS OF THE CBIOS. ~ ~ " .'" *" 

* * 

***************************************************************** 



A 



S 



IF 



^^ X IF 
DPBHDl / DW 



DB 
DB 
DB 
DW" 
DW 
DB 
"ITB" 
DW 



STDLOG EQ 



MAXHD NE Q 
M26 NE 
1024 

"~5~ 

31 

1 

1973 

511 

0FFH 
"0FFH 





?USE STANDARD FORMAT 



;CP/M SECTORS/TRACK 



;BSH 
;BLM 
;EXM 



;DSM 
;DRM 
;AL0 



TALI 
;CKS 



1 



cp/m macro ASSEM 2.0 



#056 



'** Cbios For CP/M Ver. 2.2 *** 



DPBHD2 



DW 
DB 



DW 
DB 



DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
DB 



1 
33H 



1024 

5 

31 

1 

1973 

511 

0FFH 

0FFH 





64 

33H 



OFF 

16*(( 

L0G2( 



8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM_ 

DRM 

AL0 

AL1 



#CPM SECTORS/ PHYSICAL SECTOR) -1) 
#BYTES PER SECTOR/ 128 ) + .1 ± 
DOUBLE SIDED. 
SECTORS/ TRACK 



CKS 
OFF 
16*(( 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#~BYTES PER SECTOR/T28T + 1 + 



LOG2T 

8 IF DOUBLE SIDED. 



DPBHD3 



DW 


1024 


DB 


5 


DB 


31 


DB 


1 


DW 


1973 


/DW 


511 



DB 
DB 
DW 



DW 
DB 






^ENDIF 
,IF 
DPBHDl /DW 
/ DB 
i DB 
DB 
DW 
DW_ 
DB " 
DB 
DW 



~DW~ 
DB 



I 



DPBHD2 



\ 



DW 
JDB 
DB 
DB 
DW 
DW 
DB 

DW 
DW 



0FFH 
0FFH 
__ 
127 
33H 



M10 NE 

336 

5 
31 

1 

1269 

511 

0FFH 

0FFH 

"I 
33H 



336 

5 

31" 

1 

1280 

51 r 

0FFH 
0FFH 



CP/M 

BSH 

BLM 

EXM " 

DSM 

DRM 



SECTORS/TRACK 



AL0 
AL1 
CKS 



OFF 
16* (( 
LOG2( 



#CPM SECTORS/ PHYSICAL SECTOR) 
# BYTES PER SECTOR/ 128) + 1 + 
8 IF DOUBLE" SIDED ." 



-1) + 



< 

3 



fo 




< 



> 

o 



-0— - 

122 



EXM 

DSM 

DRM_ 

AL0 

AL1 

CKS 



OFF 

16* (( 

LOG2( 

B-TP"" 

CP/M 

BSH 

BLM 

EXM 

P_ S JL 
DRM 

AL0 

AL1 

CKS 

OFF 



#CPM SECTORS/ PHYSICAL SECTOR) -1 ) 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE STDEU; 
SECTORS/TRACK 



CP/M MACRO ASSEM 2.0 



#057 
DB 



*** 



Cbios For CP/M Ver. 2.2 



*** 



?16*((#CPM SECTORS/PHYSICAL SECTOR) -1) 
;LOG2(#BYTES PER SECTOR/128) + 1 .+ 
;8 IF DOUBLE SIDED. 



A002 



E9A4 


05 


E9A5 


IF 


E9A6 


01 


i E9A7 


DF07 


1' E9A9 


FF01 


E9AB 


FF 


E9AC 


FF 


E9AD 


0000 


E9AF 


0100 


E9B1 


33 



E9B2 
E9B4 
E9B5 




< 

'■£■ 

f i 
rn 
> 



**************************************************************** 
* * 

* 
* 

'— *~ 



* THE FOLLOWING DPB'S ARE USED WHEN THE USER SELECTES THE 

* NUMBER OF LOGICAL DRIVES. THESE MACROS DIVIDE EVENLY THE 

* SPACE PER LOGICAL DRIVE WHERE THE STANDARD FORMAT TRIES 



* TO CREATE THE LEAST AMOUNT OF LOGICAL DRIVES "WITH THE 

* MOST SPACE PER LOGICAL DRIVE. 



L_.. 



CP/M MACRO ASSEM 2.0 #058 *** Cbios For CP/M Ver. 2.2 *** 



m 



* * 

***************************************************************** 



-IF 



STDLOG NE 



t MDPB HD MAC RO 
^DPBHD&L DW " 
DB 




L,D 
SECPT 
BSH 
BLM 



EXM 

LDSK NE 

( TOTBLS/LOGDSK ) 



(TOTBLS/LOGDSK)-! 



.•RESERVED CPM TRACK 



DW 
DB 
DB 



DRM 
AL0 
AL1 



DW 
DW 
DB 



CKS 

(TRACKS/LOGDSK) *&D+1 
SLOG 



ENDM 



.-IF 



/ 



MAXHD NE 



SECPT 
TOTBLS 



M10 NE 
EQU 336 
EQU 2562 



TRACKS 
"ENDIF 



EQU 



244 



; SECTORS PER TRACK 

; TOTAL BLOCKS (4096 BYTE) 

; TOTAL TRACKS 



IF 

SECPT 
TOTBLS 
RACKS 
ENDIF 



M'2'0 NE 0" 

EQU 672 
EQU 5124 

EQU " 244 ". 



< 

x 






/ SECPT 
( TOTBLS 
\TRACKS 
ENDIF 



M26 NE 
EQU 1024 
EQU 6464 
"EQU "202 



BSH 
BLM 
EXM 



AL0 
AL1 

"CKS~ 
SLOG 



EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



EQU 
EQU 



5 
31 

1 



~5ir~ 

0FFH 
0FFH 
"0 
33H 



LDSK SET 
REPT 

DPBDRV_ SET 

REPT 

MDPBHD 



"0— — 
MAXHD 




STDLOG 
%LDSK,%DPBDRV 



CP/M macro ASSEM 2.0 



#059 



*** Cbios For CP/M Ver. 2.2 *** 



LDSK SET 
DPBDRV SET 
ENDM 



ENDM 



\E* 
. NsNDIF 
\ ENDIF 



LDSK+1 
DPBDRV+1 



it**************************************************************** 

* * 

* CP/M DISK PARAMETER ' HEADERS7"UNITIM."lZED^ *~ 

* * 

***************************************************************** 



IF 
HEADER MACRO 



STDLOG EQ 
ND , DPB 



DW 
DW 
DW 





0,0,0 

DIRBUF 



DW 
DW 
DW 



DPB 

CSV&ND 

ALV&ND 



ENDM 



ELSE 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 



;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

7 ALLOCA TION VECTOR 



HEADER MACRO 
DW 



ND,DPB,DPNO 





DW 


0,0,0 


DW 


DIRBUF 


DW 


DPB&DPNO 


DW 


CSV&ND 


DW 


ALV&ND 


ENDM 




ENDIF 





; TRANSLATION TABLE FILLED IN LATER 



; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 



; DIRECTORY CHECK VECTOR 
; ALLOCATION VECTOR 



< 



fo 



73 

m 
> 

a 



E9D2 = 



DPBASE EQU 



0000 # 



DN 



DN 
DN 



E9D2+0000 

E9DA+4CEE 
E9DC+A2E9 
E9T3E+CBEF 
E9E0+CCEE 



IF STDLOG EQ 
SET 



IF 

REPT 

HEADER 



FIRST 
MAXHD 
%DN , DPBHD1 



SET 

HEADER 

SET 
"IF""' " 

HEADER 

SET 

ENDIF " 

ENDM 

DW_ 
"DW" 

DW 

DW 

DW 

DW 



.-GENERATE HARD DISK DPH'S FOLLOWED 
BY FLOPPY DPH'S 



DN+T 

%DN,DPBHD2 

DN+1 

~ch2F"¥e"~07 "o"r imerm"isT' 

%DN,DPBHD3 
DN+1 



__._._._.. 

DIRBUF 
DPBHD1 
CSV0 
ALV0 



TRANSLATION TABLE FILLED IN LATER 
•SCRATCH" 
.•DIRECTORY BUFFER 
;DPB FILLED IN LATER 



.•DIRECTORY CHECK VECTOR 
; ALLOCATION VECTOR 



cp/m macro ASSEM 2.0 



#060 



*** Cbios For CP/M Ver. 2.2 *** 





E9E2+0000 


DW 


i 


•TRANSLATION TABLE FILLED IN LATER 






E9E4+0000000000 


DW 


0,0,0 ; 


• SCRATCH 






E9EA+4CEE 


DW 


DIRBUF 


•DIRECTORY BUFFER 






E9EC+B2E9 


DW 


DPBHD2 


•DPB FILLED IN LATER 






E9EE+C4F0 


DW 


CSV1 


•DIRECTORY CHECK VECTOR 






E9F0+C8EF 


DW 


ALV1 


•ALLOCATION VECTOR 






E9F2+0000 


DW 





•TRANSLATION TABLE FILLED IN LATER 






E9F4+0000000000 


DW 


0,0,0 


• SCRATCH 






E9FA+4CEE 


DW 


DIRBUF 


•DIRECTORY BUFFER 




' 


E9FC+C2E9 


DW 


DPBHD3 


•DPB FILLED IN LATER 


' 1 


t 


E9FE+45F1 


DW 


CSV2 


•DIRECTORY CHECK VECTOR 


J 


! 


EA00+C4F0 


DW 


ALV2 


•ALLOCATION VECTOR 


■■'■"■ v ■■■■<■■*] 



DN 



EA02+0000 
EA04+0000000000 
EA0A+4CEE 
EA0C+0000 

EA0E+90F1 

EAlF^fSFI 
EA1 2+0000 
EA14+0000000000 



EA1A+4CEE 
EA1C+0000 
EA1E+1BF2 



EA20+D0F1 
EA22+0000 
EA24+0000000000 
EA2A+4CEE 
EA2C+0000 
EA2E+A6F2 
EA30+5BF2 
EA32+0000 
EA34+0000000000 
"EA3A+4CEE 
EA3C+0000 
EA3E+31F3 
EA4T3+E6F2 



DN 



DN 



REPT 

HEADER 

SET 

ENDM ~ 

DW 

DW 



MAXFLOP 

%DN,0 

DN+1 




0,0,0 



DW 

DW 

DW 

DW" 

DW 

DW 



DIRBUF 



CSV3 

ALV3 



0,0,0 



DW 
DW 
DW 
"DW 
DW 
DW 



DIRBUF 



CSV4 

ALV4 



0,0,0 



DW 

DW 

DW 

DW" 

DW 

DW 



DIRBUF 



CSV5 



ALV5 



0,0,0 



DW 
DW 
DW 

"D1F7 
ELSE 
REPT 



HEADER 

SET 

ENDM 



DIRBUF 



CSV6 

ALV6 ":■■" 

_MAXFLOP_ 
%DN,0 " 
DN+1 



TRANSLATION TABLE FILLED IN LATER 
SCRATCH 



DIRECTORY BUFFER 
DPB FILLED IN LATER 
DIRECTORY CHECK VECTOR 



ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 



DIRECTORY BUFFER 
DPB FILLED IN LATER 
DIREC TORY C HECK VECTOR 
ALLOCATION VECTOR ~~ ~ " 

TRANSLATION TABLE FILLED IN LATER 
SCRATCH 



DIRECTORY BUFFER 

DPB FILLED IN LATER 

D I RECTORY _CHECK__VECTOR 

ALLOCATION " VECTOR 

TRANSLATION TABLE FILLED IN LATER 

S CRA TCH 

Directory buffer 
dpb filled in later 

Pl???^.9*^. CHECK J/ECTOR 
ALLOCATION VECTOR 

; GENERATE F LOPPY DPH'S FOLL OWED BY 
HARD DISK DPH'S 



< 

'.0 






REPT 

HEADER 

SET 



MAXHD 

%DN,DPBHD1 

DN+1 





HEADER 


DN 


SET 




IF 




HEADER 


DN 


SET 




END IF 




ENDM 




ENDIF 



%DN,DPBHD2 

DN+1 

(M26 NE_J0 OR (M20NE 0) 

%DN,DPBHD3 

DN+1 



CP/M MACRO ASSEM 2.0 



#061 
END IF 



*** Cbios For CP/M Ver . 2.2 *** 



EA42 = 



DN 



STDLOG NE__0_ 
FIRST 
MAXFLOP 
MAXHD 



DN 



DN 



IF 

IF 

SET 

REPT 

REPT ~ STDLOG ; GENERATE HARD DISK DPH'S FOLLOWED 

HEADER %DN,DPBHD,%(DN-MAXFLOP) ;BY FLOPPY DPH'S 

SET DN+1 ___ 

ENDM 
ENDM 
SET 



DN 





REPT MAXFLOP 
HEADER %DN f 0,0 
SET DN+1 



; FLOPPIES ALWAYS START AT ZE RO 



ENDM 
ELSE 



; GENERATE FLOPPIES BEFORE HARD DISK 



DN 



SET 
REPT 




MAXFLOP 



DN 



DN 



DN 



HEADER 


%DN,0,0 


SET 


DN+1 


ENDM 




SET 


MAXFLOP 


REPT 


MAXHD 


REPT 


STDLOG 



HEADER %DN,DPBHD,%(DN-MAXFLOP) 

SET DN+1 

ENDM 



ENDM 
END IF 
ENDIF 



BUFFER EQU 



< 






************* **************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 



""*"' "" " "" '"" * 

***************************************************************** 





EA42 801 A PROMPT 


DB 




EA44 0A0D0A0D0A 


DB 




EA4A 4D6F72726F 


DB 




EAt>y 36 


DB 




EA5A 32 


DB 




EA5B 4B2043502F 


DB 




EA62 32 


"DB" 




EA63 2E 


DB 




EA64 32 


DB 




EAbb 2C20436269 


DB 




EA71 322E 


DB 




EA7 3 39 


DB 



80H, CLEAR ; CLEAN BUFFER AND SCREEN 

AC R , ALF , ACR , ALF , ACR , ALF 
'Morrow Designs ' 
""•la^+MS I ZE/I W "~ ~~~ '"" TCP/M ^"MEMORY SIZE — 

'0'+(MSIZE MOD 10) 

'K CP /M '_ yCP/M V ERSION NUMBER 

CPMREV7 r r0+ r F T ~ 

• 

(CP MREV MOD 10) +'0' 

~ r ^" Cbios rev" 1 
REVNUM/l0+'0' , ' . ' 
REVNUM MOD 10+' 0' 



; CBIOS REVISION NUMBER 



IF 



MAXHD NE 



CP/M MACRO ASSEM 2.0 



#062 



*** Cbios For CP/M Ver. 2.2 *** 



EA74 2E 
EA75 32 
EA76 30 



EA77 0A0D 
EA79 466F7220 



EA7D 6120446973 



DB 
DB 
DB 


• 1 

• 

MREV/10+' 
MREV MOD 


0' 
10+' 0' 


„ENDIF 
IF 


M10 




'' DB 
ELSE 


FUJITSU 
•F* 




VDB 

END IF 
"-ENDIF 


'M' 





DB 

_P_? 

IF 
DB 
END IF 



ACR.ALF 
'For ' 



MAXFLOP NE 

* a Disk Jockey 2D/B' 



EA8F 20616E6420 



IF 
DB 

ELSE 
DB 
END IF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
'""and ' " 



EA94 6120 



MAXHD NE 
MAXHD"~~EQ 1 
'a ' 



MAXHD EQ 2 
'two ' 

MAXHD EQ 3 
'three ' 






MAXHD EQ 4 
'four * 



"HKEVHEJT TS3 
FUJITSU 
'Fujitsu ' 

' Memorex ' 

"TUB -1 " ~ 



"T3A9 6~ 46~756A5974" 



EAA2 6861726420 



MREV E Q 20 
Tujftsu M20 r 



MREV EQ 26 
T'STiugart" M26 T 

'hard disk' 
MAXHD"~NE"T 

■ r- ■ 



CP/M MACRO ASSEM 2.0 #063 *** Cbios For CP/M Ver. 2.2 *** 

i NENDIF 
EAAB 2E V DB 

^ENDIF 

EAAC 0A0D DB ACR,~ALF 



IF (CONTYP EQ 0) OR (CONT YP EQ lj_ 

DB 'Nothing', ACR, ALF 
ENDIF 



EAAE 4465636973 



EAB8 2061732063 



EAC3 2C20 



IF 
IF 
DB 



ELSE 

DB 

ENDIF 



ENDIF 
DB 




,_-— «IF 
. DB 






4 






CONTYP EQ 2 
MULTR3 
'Multi I/O ' 



Decision I' 



ENDIF 

IF CONTYP EQ 3 

DB '2D/B' 



' as console' 



LSTTYP GE 2 



/IF LSTTYP EQ 2 

(db_ ' s eri al' 
T1NDIF 

IF LSTTYP EQ 3 

DB * CTS protocol serial ' 



NDIF 

F LSTTYP EQ 4 
DB *DSR protocol serial' 



NDIF 
IF LSTTYP EQ 5 
DB 'Xon/Xoff protocol serial' 



1NDIF 

yHF LSTTYP EQ 6 

DB ' Centronics parallel ' 

INDIF 

F LSTTYP EQ 7 

DB 'Diablo HyType II parallel' 






• 
• 



7) A 2? 



IDIF 



EAD8 207072696E 




DB 



' printer as LST: ' 



EAE8 0A0D 
EAEA 00 



ELSE 
DB 


1 1 




ENDIF 
DB 


ACR, 


ALF 


DB 








;END OF MESSAGE 



*********** *sF« r * * **** * * ■■* *Tt~*~* * ****** *^ **************************** *~ 
* * 



CP/M MACRO ASSEM 2.0 #064 *** Cbios For CP/M Ver. 2.2 *** 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL . * 

* * 

*"*"*** ********** ** ********* *~* ************* **"** *** ** *************** 

EAEB 7E MESSAGE MOV AiM ;GET A CHARACTER OF THE MESSAGE 

EAEC 23 INX H ;BUMP TEXT POINTER 

EAED B7 ORA A ;TEST FOR END 

EAEE C 8 RZ ; RETURN IF DONE 

"EAEF E5 PUSH" H ; SAVE POINTER TO TEXT 

EAF0 4F MOV C,A ; OUTPUT CHARACTER IN C 

EAF1 CD0CE3 CALL COUT ; OUTPUT THE CHARACTER 

EAF4 El POP H """ "~" ; RESTORE THE POINTER 

EAF5 C3EBEA JMP MESSAGE ; CONTINUE UNTIL NULL REACHED 

~ " * * * ********* *tj ****** *~* *********** ww*~W5~v*~*~*~$w*~*~ *w*w***ir***** * * * * * * '"~ ;~ ~ 

* ■ :.* .. 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEES LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 
***************************************************************** 

EAF8 310001 CBOOT LXI SP,TPA ; SET UP STACK 

~~EAFB~AF XRA A TCLEAR - COLD" BOOT FLAG "" ~ 

EAFC 32FAE3 STA CWFLG 

EA.FF 323AE3 _ ^_A_ _ GROUP ; CLEAR GROUP SELECTJBYTE 

IF MAXFLOP NE f IF 2D/B IS THERE THEN MAKE RAM COPY 

EB02 2100FC LXI H,DJRAM t_ OF THE JU MP T ABLE. 

EBfeJb 1100F8 " LXI DVORIGIN" "" ~ " 

EB08 0633 MVI B,33H ;SIZE OF JUMP TABLE 

E J* A CD06E7 „CA L L MOVLOP ?COPY .TABLE 

ENDIF —-."■-- 

EB0D 3E00 _MV^ A,INTIOBY ___ 

"EB0F 320300~~ " STA ~ IOBYTE" 

IF CONTYP_ NE 0_ ;J)0 JSIOT CALL TINIT J\DR PROJ 

~ ~EBT2nCD3TEB~ ■'■. "CALL "TTNTT" ' "' ~ "j INITIALIZE THE" TERMINAL 

ENDIF 

TF"" LSTTYP NE~l3 ;DO NOT CALL LI'NTT"TO^"TROM r S 
EB15 CDD2EB CALL LINIT ; INITIALIZE THE LIST DEVICE 

ENDIF 

EB18 2142EA LXI H, PROMPT ;PREP FOR SENDING SIGNON MESSAGE 

EB1B CDEBEA^ CALL MESSAGE _. ' ' 7 SEND THE PROMPT 

""EBIETAF " "" XRA "A" ~ " ~ ;SELECT DISK A 

EB1F 3244EE STA CPMDRV 

EB22 320400 STA _CDISK _ 

IF (MAXFLOP NE 0) AND FIRST 
EB25 32A6E4 STA FLOPFLG 

ENDIF 

EB28 2103E3 LXI H,BIOS+3 ; PATCH COLD BOOT TO WARM CODE 







OriSZT" 



< 

7J 



"i 



'■ 3 
m 

> 



CP/M macro ASSEM 2.0 

EB2B 2201E3 
EB2E C3A8E3 



#065 

SHLD 
JMP 



*** Cbios For CP/M Ver. 2.2 *** 



BIOS+1 
GOCPM 



lfrs>< P& 'ieft3FM m 



7 ^ rrT ) 



IF CONTYP EQ 2 ;MULTI l/O, DECISION I 
***************************************************************** 



* * 

* TERMINAL INITILIZATION ROUTINE. THIS ROUTINE READS THE SENSE * 

* SWITCH ON THE WB-14 AND SETS THE SPEED ACCORDINGLY. * 



* .. ... * 

**************************************** ********* 



EB31 3A3AE3 
EB34 F601 
EB36 D34F 



TINIT 



-h 



J 



txt 




EB38 DB48 
EB3A DB48 



LDA 
ORI 
J3UT 

IN 
IN 



1 



GROUP 

CONGRP 

GRPSEL 

RBR 
RBR 



;GET GROUP BYTE 

; SELECT CONSOLE DEVICE 



wjl v\m>ifcnr' 



; CLEAR RECIEVER BUFFERS 



EB3C AF 
EB3D D34D 
EB3F D349 



XRA 
OUT 
OUT 



A 

LSR 

IER 



BfttnGSr 

NOT MULTR3 



EB41 3A3AE3 



LDA 



IOT 
GROUP 



7 CLEAR STATUS 

• SET NO INTERRUPTS 



EB44 D34F 
EB46 DB49 
EB48 E6E0 
~E~B4A WT'~ 
EB4B 07 
EB4C 07 



^MULTI I/O HAS NO SENSE SWITCHES 
;GET GROUP BYTE 



OUT 

IN 

ANI 



GRPSEL 

SENSESW 

0E0H 



; SELECT GROUP ZERO TO READ SENSE SWITCH 

;GET SENSE SWITCH. 

;MASK IN UPPER THREE BITS 



RLC 
RLC 
RLC 



"EB4D FE0T" 
EB4F F5 
EB50 3A2AE3 



?MOVE INTO LOWER 3 BITS 



CPI 

PUSH 

LDA 



7 

PSW 

GROUP 



~^B53 P601 
EB55 D34F 
EB57 FI 



; CHECK FOR SENSE = 7 
;SAVE VALUE 
;GET GROUP BYTE 



ORI 
OUT 
POP 



CONGRP 
GRPSEL 
PSW 



; RESELECT SERIAL PORT GROUP 



EB58 CA97EB 



JZ 



VALID 



;DO DEFAULT RATE 



:EB5B ~2T59EB 
EB5E 87 
EB5F 5F 
EB60 1600 
EB62 19 
EB63 5E 
EB64 23 "'" 
EB65 56 
EB66 C3C0EB 



1ST" 
ADD 
MOV 



H.BTAB 

A 

E,A 



; POINTER TO BAUD RATE TABLE 
? TABLE OF WORDS SO DOUBLE 
IMAKE A 16 BIT NUMBER INTO (DE) 



MVI 
DAD 
MOV 
TN5T 
MOV 
JMP 



D,0 

D 

E f M 



;GET A POINTER INTO BAUD RATE TABLE 
;GET LOWER BYTE OF WORD 




EB69 1704 
EB6B 8001 
EB6D hfdm~ 
EB6F 3000 
EB71 1800 
EB73 0C00 " 
EB75 0600 



BTAB 



DW 
DW 



DW 
DW 
DW 



DW 
DW 



H 

D,M 

SETIT 

1047 
384 
96 ~~ 
48 
24 
T2 



? POINT TO HIGH BYTE OF WORD 

;GET UPPER BYTE. (DE) NOW HAS DIVISOR 

?SET BAUD RATE. 



h 



/ 



M" 



A"'" v'' ~X~<i? 



;110 BAUD 
;300 
TTZ00 
;2400 

,-4800 
;9600 ~~ 
; 19200 



000 
001 



010 

011 

100 

10T 

110 



$Hh 
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ENDIF 
***************************************************************** 



* * 

* THE FOLLOWING IS A LIST OF VALID BAUD RATES. THE CURRENT * 

* BAUk RATE IS CHECKED ON COLD BOOT. IF IT IS NOT IN THE * 



* Q/TABJ TABLE THEN THE BAUD RATE WILL BE SET FROM THE DEFCON * 

* WORD FOUND BELOW THE CBIOS JUMP TABLE. IF THE USER * 

* HAPPENS TO HAVE A WEIRD BAUD RATE THAT IS NOT IN THIS * 



* TABLE OR IS LOOKING FOR A WAY TO SAVE SPACE THEN ENTRIES 

* CAN BE ADDED OR DELETED FROM THE TABLE. 



* 
* 
* 



***************************************************************** 



EB77 

^EB79~~ 

EB7B 

EB7D 



0009 
00W 
1704 
5903 



'(VTAB> DW 



^.i^ 



2304 



DW 
DW 

DW 



1536 
1047 
857 



EB7F 
EB81 
EB83 



EB85 
EB87 
EB89 



0003 
8001 
C000 
6000" 
4000 
3A00 



DW 

DW 
DW 



768 

384 
192 



DW 
DW 
DW 



96 
64 
58 



EB8B 
EB8D 
EB8F 
EB9T 
EB93 
EB95 



3000 
2000 
1800 
T00W 
0C00 
0600 



DW 

DW 

DW 
D W 

DW 
DW 



48 
32 
24 
16 
12 
6 



50 BAUD 



75 

110 

134.5 



150 
300 
600 



1200 
1800 
2000 



2400 

3600 

4800_ 

"7200 ~ 

9600 

19200 



0010 = 



EQU 



($^TAb)/2 ; LENGTH OF THE $rAB) TABLE 






■" *ir* * * * *~*~*~*" *~*tt*~* ******* * * *~* **~* ****** * * * * ***** ********* ***** * * * * *~inr 

* VALID CH E CKS IF THE DIVISOR LATCH IS A REASONABLE VALUE. _*_: 
■"*- if THE VALUE SEEMS OFF THEN IT WILL GET THE DEFAULT BAUD 

* RATE FROM DEFCON AND JUMP TO SETIT. 



* 

._ — _ _ — _ „^„ .„„ w~..* „~ _~^.^. * 

* * 

-*-*-* * * * * ***-*-* *-*ir*-*"*-*w*-* *'*' **Tr*Tr*ir*-*^*-*-*^?nir*ir*iF* *"*■*'*-*"*"**"'*"*'»*"* *****~**~ 



< 






EB97 
EB99 
EB9B 
EB9D 

TEB9IT 
EBA0 
EBA1 
EBA3 
EBA5 
EBA8 

"EBA7T 
EBAB 
EBAC 

~EBXF~ 
EBB0 



3E87 
TJ34B" 
DB48 
5F 



VALID 



T3B49" 

57 

3E07 

D34B 

2177EB 

0E10 
TB" 

BE 

C2B6EB 
~T3 

7A 



VLOOP" 



MVI 
"OUT" 
IN 
MOV 
~TN~" 
MOV 
MVI 
OUT 
LXI 
MVI 
MOV 
CMP 
JNZ 



A, DLAB+WLS0+WLS1+STB 
T7CR ; 



INX 
MOV 



DLL 
E,A 

D,A 

A.WLS1+WLS0+STB 

LCR 

H/VJTJU^ 

c^^vtaI 




; ACCESS DIVISOR LATCH 
;GET LOWER DIVISOR VALUE 

7<SET UPPER " TJIVTSOTTVALTJE 



; VALID BAUD RATE TABLE 

; LENGTH OF THE _BAUD_RATE TABLE 

; CHECK LOW BYTE 

; FIRST BYTE IS BAD 



H 

AyD 



CP/M macro ASSEM 2.0 

EBB1 BE 
EBB2 CACEEB 
EBB5 2B 



#067 *** Cbios For CP/M Ver . 2.2 *** 



; CHECK HIGH BYTE 
;BAUD RATE IS OK. 



CMP 


M 


JZ 


DONE 


DCX 


H 



DO CLEANU 



EBB6 23 
EBB 7 23 
EBB8 0D 



VSKIP 



INX 
INX 
DCR 



H 
H 
C 



;SKIP TO NEXT ENTRY 
;BUMP ENTRY COUNTER 



EBB9 C2AAEB 

EBBC 2A36E3 
EBBF EB 

EBC0 3E87 



JNZ VLOOP 

i mum - ' ' _„.. .... 

LHLD DEFCON 



;GET DEFAULT BAUD RAT E 




XCHG 



MVI 



A, DLAB+WLS1+WLS0+STB 



;ENABLE DIVISOR ACCESS LATCH 



EBC2 
EBC4 
EBC5 



D34B 

7A 

D349 



EBC7 
EBC8 
EBCA 



~7b" 
D348 
3E07 



OUT 
MOV 
OUT 
MOV 
OUT 
MVI 



LCR 
A,D 
DLM 



;SET THE BAUD RATE IN (DE) 
;SET UPPER DIVISOR 



A, E 

DLL ?SET LOWER DIVISOR 

A, WLS1+WLS0+STB \_ 



EBCC D34B 

EBCE AF 
"EBCF D34D 
EBD1 C9 



DONE 



OUT 

XRA^ 

OUT 

RET 



LCR 
A 



; CLEAR STATUS REGISTER 



LSR 



TINIT 



END IF 

_?* ..CpNTYP EQ^_3 

CALL DJTSTAT 
RNZ 



TmultX T7o7 Decision " i~ 

;2D/B CONSOLE INITIALIZATION 

; CLEAN INPUT BUFFER 
?ALL EMPTY 



CALL 
JMP 



DJCIN 
TINIT 



ENDIF " ;2D7B CONSOLE " 

IF ( LSTTYP GE 2 ) AND ( LSTTYP LE 5 ) ; SERIAL MULT I I/O LI ST DRIVERS 



< 

x 



fo 



> 



EBD2 3A3AE3 
EBD5 F603 
~EBD7 D3~4F ~" 
EBD9 3E80 
EBDB D34B 
EBDD _ 2A~3BE3~ 



LINIT 



LDA 
ORI 



GROUP 
LSTGRP 



"OUT 
MVI 
OUT 



GRPSEL 
A/DLAB 
LCR 



? GET GROUP BYTE 

; SELECT LIST DEV ICE 

; ACCESS DIVISOR LATCH 



EBE0 7C 
EBE1 D349 



LHLD 

MOV 

OUT 



DEFLST 

A,H 

DLM 



;GET LST: BAUD RATE DIVISOR 
;SET UPPER BAUD RATE 



EBE4 
EBE6 
~EBEBT 
EBEA 
EBEC 
EBED 



D348 
3E07 



"MOV - 
OUT 
MVI 



I534B 
DB48 
AF 
T534^~~ 



OUT 

IN 

XRA 



EBEF C9 



OUT 
RET 



~K7h " " 

DLL 

A f STB+WLS0+WLS 1^ 
"LCR 

RBR 

A 

IER" 



? CLEAR INPUT BUFFER 



;NO INTERUPTS 



"ENDTF" 



cp/m macro as SEM 2.0 



LINIT 




#068 
IF 

LDA__ 
ORI 
STA 
OUT 



*** Cbios For CP/M Ver. 2.2 *** 

LSTTYP EQ 6 ;MULTI I/O PARALLEL, CENTRONICS 



GROUP 



..;GET GROUP BYTE 



DENABLE 

GROUP 

GRPSEL 



;SET DRIVER ENABLE BIT 

; SELECT GROUP ZERO WITH DRIVERS ENABLED 



XRA 


A 


OUT 


DAISI1 


MVI 


A,D9+D10 



;ZERO OUT DATA 

;SET STROBE HIGH, INIT LOW 



DLOOP 



OUT 
MVI 
DCR 



DAISI0 
A, 10 
A 



;WAIT ABOUT 50US FOR PRINTER TO INITILIZE 



JNZ DLOOP 

MVI A,D11+D9+D10 

OUT DAIS 10 



RET 
ENDIF 



IF 



LSTTYP EQ 7 



; DIABLO HYTYPE II 



****************** ************************ '**'** ******************* 
* INITIALIZE DIABLO HYTYPE PRINTER. IF THE PRINTER FAILS * 



* TO INITIALIZE THEN THE OUTPUT DRIVERS WILL BE TURNED OFF" 

* AND ANY ATTEMPTS TO PRINT WILL RESULT IN REDIRECTION TO 

* THE CONSOLE. 



* 
* 



«^ ,,-■:-*. 

***************************************************************** 



,-rIF 

LINIT ( LDA 

j ORI 

~i OUT 

I ORI 

I OUT 



DLOOP 



MVI 
DCR 
JNZ 



LDA 
OUT 



^c 



--/ELSE 

/ 

LINIT / LDA 

f- 0UT - 

I MVI 



DLOOP 



OUT 

MVI 

OUT 

MVI 

OUT 

MVI 

DCR 

JNZ~ 

MVI 



MULTR3 

GROUP 

DENABLE 

GRPSEL " 

RESTORE 

GRPSEL_ 

"A, 10 " 

A 

DLOOP 

GROUP 

GRPSEL 



;MULTI l/0~lNlTIALlZATION 

;GET GROUP BYTE 

;ADD DRIVER ENABLE BIT 



? TOGGLE RESTORE HIGH 
7HOLD "LINE " UP " FOR~50US" 



;TURN DENABLE AND RESTORE OFF 



; MOTHER BOARD INITIALIZATION 



jGET GROUP BYTE 
;SELgCT GROUP "ZERO 



GROUP 

A,PSELECT+RLIFT ;SET SELECT LINE ACTIVE, RLIFT NOT ACTIVE 
CLK 



A,0FFH 
DAISI0 

A , FFH- RESTORE ; STROBE REST ORE BIT LOW 
"BAISL0T" 



< 






A, 10 
A 

DLOOP 
A, 0FFH 



;WAIT ABOUT 50US 



1 



; RAISE RESTORE BACK UP 



CP/M MACRO ASSEM 2.0 



#069 

OUT 
UENDIF 



*** Cbios For CP/M Ver. 2.2 *** 
DAISI0 



XRA 
OUT 



A 
DAISI1 



; CLEAR DATA BUFFERS 



IF 


MULTR3 


LDA 


GROUP 


ORI 


DENABLE 



;LIFT RIBBON 



OUT 
MVI 
OUT 



GRPSEL ; RE-ENABLE THE DRIVERS 

A, 0FFH- RESTORE ; PULL -RIBBON LIFT DOWN 
DAIS 10 



-ELSE 
MVI 
OUT 



A, PSELECT 
CLK 



; RE-ENABLE DRIVERS AND LIFT RIBBON 



V ENDIF 
LINIT9 LXI HVHIN C/CPBRI 



SHLD 
LXI 



SHLD 
LXI 



SHLD 
SHLD 
SHLD 



SHLD 
SHLD 



HMI 
H,VINC/LPERI 



;SAVE HMI = 120/ (CHARACTERS PER INCH) 



VMI 
H,0 



VPOS 

DLVPOS 

HPOS 



DLHPOS 
LMAR 



rSAVE VMI = 48/"( LINES PER INCH )" 



; other Variables default to zero 



CALL 

XRA 
STA 
STA 
STA 



RET 



CLRALL 



KLUDGE 
DIRFLG 
GRHFLG 



; CLEAR THE TAB ARRAY 



; RESET TAB CLEAR BYTE 



< 






< 

m 
> 

a 



EBF0 00FF00 



EBF3 



EC42 



ENDIF 

DB 0, 0FFH, 

DS 



512-($-BUFFER) ;MAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 



TF "MAXFLOP NE 

DS 512 
ENDIF 



i ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 



***************************************************************** 

* * 

~*~ CBIOS~^AM '" LOCAT rONS~THAT~DON r *T NE^D INTtTALI^AT IONT ~ " ~ w '" 

* * 

****************** * * ********************************************* 



EE42 0000 



CPMSEC DW 







;CP/M SECTOR # 



CP/M MACRO ASSEM 2.0 



#070 



*** Cbios For CP/M Ver. 2.2 *** 



EE4C 



EE44 00 
EE45 00 
EE46 0000 


CPMDRV DB 
CPMTRK DB 
TRUESEC DW 


; 






•CP/M DRIVE # 
•CP/M TRACK # 
'DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 




EE48 00 
EE49 00 
EE4A 0000 


BUFDRV DB 
BUFTRK DB 
BUFSEC DW 







•DRIVE THAT BUFFER BELONGS TO 
•TRACK THAT BUFFER BELONGS TO 
• SECTOR THAT BUFFER BELONGS TO 





DIRBUF DS 



128 



ALLOC MACRO 
ALV&ND DS 
CSV&ND DS 



ENDM 



ND,AL,CS 

AL 

CS 



.•DIRECTORY BUFFER 



0000 # 



DN 



SET 







IF 
IF 



STDLOG EQ 
NOT FIRST 



DN 



REPT 

ALLOC 

SET 



MAXFLOP 

%DN,75,64 

DN+1 



DN 




ENDM 
REPT 

r*"iF 



ALLOC 

SET 

ALLOC 



MAXHD 

M26 NE 

%DN,247,0 

DN+1 

%DN, 247,0 



SET 

ALLOC 

SET 



DN+1 

%DN, 247,0 

DN+1 






< 

W 

m 
> 



DN 
DN 



I— END IF 
IF 

ALLOC 
SET" 
ALLOC 
SET 



M10 NE 
%DN, 159 J3 
DN+1" 
%DN, 161,0 
DN+1 



EUDIP" 

IF 

ALLOC 



M20 NE 
%DN, 252,0 



DN 


SET 


DN+1 




ALLOC 


%DN, 252,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 129,0 


DN 


SET 
END IF 


DN+1 




REPT 
"IF 



DN 

DKT 



ALLOC 
SET 
ALLO C 
SET 



MAXHD 
M26 NE 
^DN, 247,0" 
DN+1 

%DN, 247,0 
DN+1 ~" 



< 

73 



ALLOC %DN, 247,0 



CP/M MACRO ASSEM 2.0 

DN 



EECC+ 



EFC8+ 
EFC8+ 
F0C4+ 



F0C4+ 
F145+ 



, #071 

f SET 
^ENDIF 
IF 



F145+ 
F190+ 
F1D0+ 



T2TB+" 
F25B+ 
F2A6+ 
F2E6+ 
F33I+ 



DN 



DN 

DN 

DfcT 

DN 



ALV0 
CSV0 
ALV1 
CSV1 



ALV2 
CSV2 



DN 



ALV3 
CSV3 
ALV4 



CSV4 
ALV5 
CSV5 
ALV6 
GSV6 



ALLOC 

SET 

ALLOC 

SET 

END IF 

IF 



ALLOC 

SET 

ALLOC 



SET 

ALLOC 

SET 



END IF 

ENDM 

DS 



DS 
DS 
DS 
DS 
DS 
REPT 



*** Cbios For CP/M Ver. 2.2 *** 

DN+1 

M10 NE 



%DN, 159,0 

DN+1 

%DN # 161,0 



DN+1 
M20 NE 



%DN, 252,0 

DN+1 

%DN, 252,0 



DN+1 

%DN, 129,0 

DN+1 



252 




252 





129 



MAXFLOP 



ALLOC 

SET 

ENDM 



DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

END IF 

END IF" 



%DN,75,64 
DN+1 



75 
64 
J75 
64 
75 
64 



75 
64 



< 






< 

vi 



> 

a 



DN 



DN 



DN 



DN 



IF 



IF 

SET 
REPT 



REPT 
ALLOC 
SET 

~ENDFT 
ENDM 
ENDIF 



IF 
SET 



REPT 

ALLOC 

SET 



ENDM 
ENDIF 



STDLOG NE 
MAXHD NE 
MAXFLOP 
MAXHD 



;MAKE UP HARD DISK ALLOCATION VECTORS 
;HARD DISKS ALWAYS START AFTER FLOPPIES 



STDLOG 

%DN , ( ( TOTBLS/LOGDSK) /8 ) +1 , 

DN+1 



MAXFLOP NE 





;MAKE UP FLOPPY ALLOCATION VECTORS 



MAXFLOP 

%DN,75,64 

DN+1 



; FLOPPIES FIRST 



CP/M MACRO ASSEM 2.0 #072 

END IF 



*** Cbios For CP/M Ver. 2.2 



*** 



F371 



END 



0006 AACK 
00 7 F ADEL 
000D__ALF 
"F1D0 ALV4 
0020 ASP 
0004 BANK 



0007 
001B 
EECC 



ABEL 
AESC 
ALV0 



0008 
0003 
EFC8 



ABS 

AETX 

ALVl 



E74B 
000C 
F0C4 



ACCOK 

AFF 

ALV2 



000A 
0009 
F145 



ACR 
AHT 
ALV3 



F25B 
001F 
D500 



ALV5 

AUS 

BDOS 



F2E6 
E3FB 
A800 



ALV6 

AUTOFLG 

BIAS 



0000 
0000 
E300 



ANUL 

AUTOLF 

BIOS 



001E 
000B 
EB69 



ARS 
AVT 
BTAB 



EE48 
E63E 
0040 



BUFDRV 

BUFWRTN 

CHECK 



0080 
E848 
E33B 



BUFF 

BUILD 

CIFLSH 



EA42 
EAF8 
E309 



BUFFER 

CBOOT 

CIN 



EE4A 
CD00 
E341 



BUFSEC 

CCP 

CITTY 



EE49 
0004 
E3F3 



BUFTRK 

CDISK 

CLDBOT 



E3DE 
FBFC 
E348 
E30C 
0016 
1020 



CLDCMND 

CMDREG 

CONIN1 



001A 
E3FC 
E35B 



CLEAR 

COLDBEG 

CONOUT1 



004A 
E3FC 
E306 



CLK 

COLDEND 

CONST 



E4B2 
0004 
0002 



CLOPP 

COMPLT 

CONTYP 



00D0 
0001 
E354 



CLRCMD 
CONGRP 
COTTY 



GOUT 

CPMREV 

CRSTRD 



0004 
EE42 
E366 



COVER 

CPMSEC 

CSTTY 



000A 
EE45 
EFC8 



CPERI 

CPMTRK 

CSV0 



E61E 
0010 
F0C4 



CPMDMA 

CRRDf 

CSV! 



EE44 
0020 
F145 



CPMDRV 

CRSTB 

CSV2 



F190 
E3FA 
0048 



CSV3 

CWFLG 

DAISI0 



F21B 

0002 
0049 



CSV4 

D10 

DAISI1 



F2A6 
0004 
0048 



CSV5 

Dll 

DAISY0 



F331 
0008 
0049 



CSV6 

D12 

DAISY1 



0010 
0001 
0008 



CTS 

D9 

DBLSID 



E597 DCRC 


E713 DECIDE 


E70F DECIDGO 


E336 DEFCON 


E338 DEFLST 


0020 DENABLE 


006E DFRMLN 


EE4C DIRBUF 


E5EA DIVDONE 


E599 DIVLOG 


E59B DIVLOGX 


E5DC DIVLOOP 


E781 DIVSPT 


E783 DIVSPTX 


F800 DJBOOT 



F803 
F82A 
F815 



DJCIN 
DJERR 
D J READ 



F80C 
0049 
E962_ 
~E9"4"2 
FBF9 
0020 



DJTRK 

DLM 

DPB128D 



F806 
F809 
F80F 
"P821" 
EBCE 
E922 



DJCOUT 
DJHOME 
DJSEC 



DJTSTAT 

DONE 

DPB128S 



F82D 
E4D5 
F81B 
F818 
E442 
E972 



DJDEN 

DJINIT 

DJSEL 



F812 
E4F3 
F830 



DJDMA 

DJNEXT 

DJSIDE 



E333 
FC00 
F827 



DJDRV 
DJRAM 
D J STAT 



DJWRITE 

DONOP 

DPB256D 



0080 
E992 
E932 



DLAB 

DP1024D 

DPB256S 



0048 
E952 
E982 



DLL 

DP1024S 

DPB512D 



DPB512S 

DREG 

DRVRDY 



E9D2 
0001 
0007 



DPBASE 

DR 

DSKCLK 



E9A2 
E853 
0020 



DPBHD1 
DRIVES 
DSR 



E9B2 
E54D 
E5F9 



DPBHD2 

DRVHD 

DTSLOP 



E9C2 
E83D 
0008 



DPBHD3 
DRVPTR 
EN I NT 



< 



$ 

M 



0005 
E63D 
E3A8 



ENTRY 
FLUSH 
GOCPM 



E6D0 
E6F8 
E33A 



FILL 

FREAD 

GROUP 



0001 
0001 
004F 



FIRST 

FUJITSU 

GRPSEL 



E4A6 
E5A2 
0000 



FLOPFLG 

GETDPB 

GZERO 



E4F8 
E77D 
E7A4 



FLOPOK 
GETSPT 
HDADD 



< 

CO 

' i 
m 
> 



_ "0"05r 

E71B 
E78A 

"ET6: 
E7BF 
0049 

" 0003 
E38E 
0003 



HDCMND 

HDDRV 

HDREAD 

HDWRITE 
IER _ 
IOBYTE 
LISTST 
LSTGRP 



0050 
0052 
0051 

warp. 

E849 

0040 

0008~ 

E37C 

0003 



HDCNTL 
HDFUNC 
HDRESLT 

HEAD 

INDEX 

ISBUFF 

LL 

LSTTYP 



0053 

E72C 

0004 

0¥50" 

0078 



"0"04B~ 
0003 
0000 



HDDATA 
HDHOME 
HDRLEN 

HINC 

INTIOBY 

XCR" 

LOGDSK 

M10F 



E84F 
0050 
E76C 
E73A 
E449 
E62B 



HDDISK 

HDORG 

HDSEC 

HBTRK 

HOME 

INTO 



E75E 
E808 
E82D 
-EMS 
0000 
FBF8 



HDDMA 

HDPREP 

HDSECTR 

HDTRK2 

IDBUFF 

10 



EBD2 
0006 
0000 



LINIT 
LPERI 
M10M 



E375 
004D 
0000 



LIST 

LSR 

M10 



0001 
0630 
E704 
"FFFF" 
00A0 
E626 



wzer ~ _ 

MAXRGT 

MOVER 

flOLTTO 

NUMTABS 

OUTOF 



0048 
E706 

EBBC 
0002 



M26 — 

MBASE 

MOVLOP^ 

MULTR3 

NVALID 

PAPER 



00F7 
0014 



MAXCHRS 

MDIR 
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